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ABSTRACT 


NPS-PASCAL is a Naval Postgraduate School research project 
whose goal is the implementation of the PASCAL programming 
language on a microprocessor-based system. The NPS-PASCAL 
compiler consists of two software subsystems, the first analy- 
zes the source program and produces a machine-independent 
intermediate form, while the second produces target machine 
code. The system is designed to satisfy the constraints of 
Standard Pascal, as defined by the British Standards Institute/ 
International Standards Organization Working Draft of Standard 
Pascal. 

The analysis subsystem, defined herein, accomplishes the 
lexical, syntactic, and semantic analysis of a PASCAL program. 
It has been implemented on an Intel 8080 microcomputer, running 


under the CP/M operating system. 
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£. INTRODUCTION 


A. BACKGROUND 

NPS-PASCAL is an implementation of the Pascal language on 
an Intel 8080 microcomputer system. NPS-PASCAL is a continuing 
research project being developed by students in the Computer 
Science Curriculum at the Naval Postgraduate School, Monterey, 
California. The original NPS—PASCAL design and implementation 
was done by MAJ Joaquin C. Gracida, USMC, and LT Robert R. 
Stilwell (SC) USN, in their thesis submitted in June 1978. 
Their work is contained in Reference 1. MAJ Gracida and LT 
Stilwell completed work on the basic constructs of the Pascal 
Language by utilizing a single-pass compiler that generated 
intermediate code; and a code generator which then generated 
8080 code from the intermediate code. With many of the Pascal 
constructs not implemented, thesis work was continued in 
October 1978 with the goal of producing a complete and debugged 
NPS-PASCAL compiler. Follow-on thesis work will lead to a 
NPS-PASCAL compiler-interpreter, and a complete NPS-PASCAL 8080 
code generator. In the discussion which follows, it is assum- 


ed that the reader is familiar with the contents of Reference l. 


B. APPROACH 

The first step in continuing the development of NPS-PASCAL, 
was to study the program listings and thesis to gain familiar- 
ity and insight into the project. A determination was then 


made to complete all work remaining on the compiler portion of 
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NPS-PASCAL, to the extent that it would meet or exceed the 
constructs being proposed for the standardization of the Pascal 
Langugage. Consequently, the BSI/ISO Working Draft 3 for 
Standard Pascal (BSI is the British Standards Institute; ISO 
is the International Standards Organization) was used as a 
source of Standard Pascal constructs (see reference 2). 

The next step was to acquire an understanding of the PL/M 
cross compiler available on the CP/CMS time-sharing system on 
the IBM 360-67 at the Naval Postgraduate School. Tied to this 
was an understanding of CPM80, an expansion on Intel's INTERP/ 
80, which provides the basic CP/M input/output facilities. 

The simulator contains the required facilities to test and de- 
bug PL/M programs. Reference 3 gives a detailed account of 
how to utilize the PLM Compiler and CPM80. 

The remaining effort consisted of making additions, correc- 
tions, design changes, isolating bugs, running test programs, 
and developing user assistance programs. In order to imple- 
ment certain constructs of the language, it was necessary to 
Becenstruct the original grammar. Appendix E lists those fea- 
tures of NPS-PASCAL that were not implemented at the start of 
this project, and the features known to contain bugs at pro- 
ject completion. 

Due to the non-existence of a Pascal Compiler Validation 
System, validation programs were taken from various textbooks 
On Pascal to test the compiler. Since these texts gave sample 
programs that demonstrated specific Pascal constructs, each 


NPS-PASCAL construct was tested as described below. 
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As a language construct ye implemented in the compiler, 
an associated validation program was compiled to check proper 
operation. However, it became apparent early in project de- 
velopment that since there was no associated construct imple- 
mentation in the code generation portion of NPS-PASCAL, check- 
ing the generated intermediate code would prove difficult. 

The solution was the development of the first of two user 
assistance programs. The NPS-PASCAL DECODE program translates 
the intermediate code and prints out the mneumonic form of the 
compiled code, along with the associated parameters for each 
mneumonic. A complete explanation of the DECODE program ap- 
pears in Appendix F. 

In compiling a validation program that revealed improper 
intermediate code, CPM80 was used to pinpoint errors in the 
compiler. Changes were then made to the source program, which 
was then recompiled using the PLM80 compiler. The validation 
program was then recompiled, and the intermediate code trans- 
lated by the DECODE program, to ensure proper construct imple- 
mentation in NPS-PASCAL. 

As more constructs were implemented and tested, a major 
realization surfaced -- the need to access the symbol table 
during and after program compilation. The original approach 
taken to this problem was the addition of a PRINTSSYMBOLSTABLE 
Subroutine to the source code. This routine printed out a 
Symbol table entry's location, type, printname, and allocated 
PRT location, if any. This solution was abandoned with the 


decision to write the symbol table out to its own separate 
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file, thus providing NPS-PASCAL with the ability to access the 
symbol table at translation time. Consequently, the second 
user assistance program was developed -- the NPS-PASCAL SYMBOL- 
TABLE program. This program offers the NPS-PASCAL user a com- 
plete printout of the information stored in the symbol table 
following compilation of a Pascal program. Appendix G details 
the use and abilities of the SYMBOLTABLE program. The follow- 
ing section describes the implementation of the compiler in 


detail. 
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II. NPS-PASCAL COMPILER IMPLEMENTATION 


A. NPS-PASCAL LANGUAGE BACKGROUND 

NPS-PASCAL is an implementation of PASCAL based on the 
BSI/ISO Working Draft of Standard Pascal (2), henceforth referr- 
ed to as "STANDARD PASCAL." NPS-PASCAL is in complete compli- 
ance with STANDARD PASCAL's definition of a conforming process- 
or, with the following exceptions: 

(1) Identifiers, directives, and labels can be of any 
length, as prescribed by STANDARD PASCAL, provided 
their uniqueness can be determined by the first thirty 
characters. 

(2) Integers are limited to any value between -32,768 and 
+32,767. Real values can take on any negative or posi- 
tive value consisting of fourteen digits multiplied by 
ten to the -64th power through ten to the +63rd power. 

(3) "EOP" is a special symbol, or reserved word, in the 
NPS-PASCAL vocabulary indicating "end of program." 

Consequently, any program that conforms to the rules of STAN- 
DARD=PASCAL, and meets the above three qualifications, consti- 
tutes a syntactically correct NPS-PASCAL program. 

To add increased versatility to PASCAL, various features 
were implemented in NPS-PASCAL. These additions were designed 
to parallel the constructs of UCSD (Mini-Micro Computer) 

PASCAL (6), the current leader in PASCAL Systems for micro- 
computers. The implementation defined features are discussed 


mesection IL.F. 
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The University of Toronto's parse table generator (5) 
was used to specify NPS-PASCAL in LALR(1) grammar form. The 
program operates on ene IBM 360/67 and produces the parse 
tables for the language, thus permitting extensions to be made 
in an easy and efficient manner. A complete description of 
the NPS-PASCAL grammar, its generation, and execution proced- 


ures are contained in the NPS-PASCAL User's Manual (8). 


B. COMPILER ORGANIZATION 

The compiler structure, diagrammed in Figure 1, requires a 
Single pass through a source program to produce an intermediate 
language file while printing an optional source listing at the 
console. The one pass approach was taken to provide fast com- 
Ppilation and to reduce the required work and size of the com- 
Piler. The single drawback to this one pass compiler is the 
inability to specify the exact position where program execu- 
tion is to continue after a branch. Therefore, labels are 
placed in the intermediate code where execution of the pro- 
gram is to continue. The resolution of label locations is 
accomplished by the code generating program as it scans the 
intermediate form. 

The compiler builds the symbol table, converts all numbers 
in the source program to their internal representation, and 
generates the intermediate file and symbol table file on the 
diskette. Compiler parameters can be set to control listings 
of the source program, token numbers, or production numbers. 
Should program errors be anticipated, another compiler para- 


meter can surpress the generation of the intermediate file. 
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C. SCANNER 

The scanner analyzes the source program character by charac- 
ter and sends a sequence of tokens to the parser. The scan- 
ner provides a listing of the source statements, when directed, 
eliminates comments, and reads the compiler parameters. 

The scanner is divided into four sections which are select- 
ively executed depending on the first non-blank character of 
the token. Upon determination of the scanning section, the 
remainder of the token is scanned and placed in the accumulator 
geray ACCUM. The first byte of ACCUM contains the length of 
the token. In the case of tokens that exceed the size of 
ACCUM (32 bytes), a continuation flag is set to allow the scan- 
ner and parser to accept the remainder of the token. 

The four sections comprising the scanner handle strings, 
numbers, identifiers or reserved words, and special charac- 
ters. The string processing section is invoked whenever the 
first character of a token is a single quotation mark. The 
scanner then analyzes each succeeding character until a second 
quotation mark is scanned, indicating the end of the string. 
The program section that manipulates numbers determines the 
type of the number being scanned as it processes each charac- 
ter. This determination is used by subsequent routines that 
perform type checking and conversion to internal representa- 
tion. When the scanner recognizes an identifier, it searches 
the vocabulary table (VOCAB) to determine if the identifier 
is a reserved word. If a reserved word is matched, the scann- 


er returns the token number associated with the reserved 
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word's position in the VOCAB table. Special characters also 
found in the VOCAB table, are handled as separate tokens ex- 
cept in two cases. If a period is followed by numeric charac- 
ters without intervening spaces, the special characters 
section of the scanner assumes that a real number is being 
scanned. This program section handles the real number in the 
same manner as the number section mentioned above. The second 
exception to special characters occurs when a pair of special 
characters are scanned one right after another. The scanner 
will pass both characters as a single token after assigning 


the token number from the VOCAB table. 


De SYMBOL TABLE 

The symbol table is used to store the attributes of labels, 
constants, type declarations, variable identifiers, procedures, 
Pimettons, and file declarations. This stored information is 
used by the compiler to verify that the program is semantically 
correct and to assist in code generation. Access to the sym- 
bol table is accomplished through various subroutines using 
based global variables to uniquely address the elements of 
each entry. 

Zt. Symbol Table Construction 

The symbol table is modelled after the Algol-M symbol 

table (9). It is an unordered linked list of entries which 
grows towards the top of memory. Individual entries are 
either accessed via a chained hash addressing technique as 


illustrated in Figure 2, or by means of address pointer fields 
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HASHING FUNCTION: SUM OF PRINTNAMES ASCII CHARACTERS 
MODULO 128 


H.F.(AB) = (41 + 42) MOD 128 = 83 
H.F.(BA) = (42 + 41) MOD 128 = 83 
SYMBOL 
ee TABLE 
127 
126 
Coulson 
Chain 
83 1030 1030 
82 1020 


Lanks: to 
previous 


Symbol Table 2020 
2 entry 
He BNIRY 1 
"AB" 1000 
0 


SYMBOL TABLE ACCESS 
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contained in other entries. This latter method of access is 
required since not all entries in the symbol table have an 
identifier, called the printname, associated with them. 

Each location in the hash table heads a linked list of 
entries whose printname, when evaluated, results in the same 
hash value. A zero in any location in the hash table indicates 
that there are no entries whose printname produces that value. 
During symbol table construction or access, the global variable 
PRINTNAME contains the address of a vector whose first element 
is the length of an identifier in a single byte, followed by 
the identifier's characters represented in ASCII format. The 
variable SYMHASH contains the hashcode value which is the sum 
of the printname's ASCII characters, modulo 128. Entries that 
produce the same hash code value are linked together in the 
symbol table by a chain which is accessed via the individual 
eitny Ss COllision field. The chain is constructed in such a 
way as to have the latest entry constructed at the head of the 
chain. 

Each entry in the symbol table contains a number of fields, 
some of which are common to all entries, and some of which 
apply only to particular types of entries. All entries have 
the same first three fields: the collision field located in 
the first two bytes; the previous symbol table (PRVSSBTBLS- 
ENTRY) entry address field located in the third and fourth 
byte; and the form field (FORM) located in the fifth byte, as 
shown in Figure 3. The remaining fields are used to uniquely 
describe each entry's attributes and particular identifying 


characteristics. 
18 
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There are eight different types of entries found in 
the NPS-PASCAL symbol table. Each of these types has a unique 
three bit code in its form field. The three bit code for con- 
stant entries, for example, is 001; the code for variable en- 
tries is 0l1l. The remaining bits in the form field describe 
other particular characteristics of the type involved. These 
characteristics are described in detail as each type of NPS- 
PASCAL symbol table entry is presented below. 

a. Label Entries 

The form field of a label entry has the constant 
byte value of zero. A single byte follows the label's form 
field containing the hash value of the label's printname. 

The length of the label follows in the next one byte fieid. 
The individual printname characters appear after the length 
field. A two byte field following the printname characters 
contains a sequentially generated integer value which is 
assigned as the label's internal label number. This value is 
used as the target for branching in the intermediate code. 

An example of a label declaration with its associated symbol 
table entry is shown in Figure 4. 

be Constant Entries 

Tie storm field of a constant symbol table entry 
identifies the type of entry, and the particular type of the 
constant as well. There are five valid types of constants in 
NPS-PASCAL: an unsigned identifier where FORM = 01H; a signed 
identifier where FORM = 41H; an integer where FORM = 09H; a 


real value where FORM = 11H; and a string constant where 
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LABEL 67; 
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7307H ASCII CHARACTER 6 
7306H PRINTNAME LENGTH 
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FORM = 19H. Following the form field of the constant entry 
are the printname hash field, length field, and the printname 
characters. 

The value field may consist of another length field 
and the printname characters in the case of identifier and 
string constants, or it may contain the internal representation 
of a constant number (two bytes for integer values and eight 
bytes for real values). Figure 5 is an example of a constant 
entry. 

¢. Type Entries 

NPS-PASCAL has two kinds of type entries in its 
symbol table: simple type entries and type declaration entries. 
The simple type entry can also be one of two types. It indi- 
cates that either one of NPS-PASCAL's standard types is being 
assigned to the entry, or that a predefined complex type dec- 
laration is to be assigned. In the latter case, a simple type 
entry is made in the symbol table, with a pointer to a type 
declaration entry. In the former case, one of the following 


standard types will be assigned the type entry. 


Integer - The values of this type are a subset of the whole 


numbers whose range is the set of values: 


~Maxccit,—Maxant+l,...,—1,0,1,...-pmMaxint—-l,maxint 
where maxint = 32,767. 
meal — The values are a subset of the real numbers consisting 


of fourteen digits multiplied by ten to the -64th 


power through ten to the +63rd power. 
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MEMORY SYMBOL 
ADDRESS TABLE 
73178 CONSTANT VALUE 
OF ENTRY 
76H 
73 0sH ASCII CHARACTER L 
73148 ASCII CHARACTER I 
73138 ASCII CHARACTER 0O 
7a ASCII CHARACTER B 
73118 LENGTH PRINTNAME 
73108 HASH 
730FH FORM 
730EH PREVIOUS SBTBL 
ENTRY ADDRESS 
730DH 
730CH 
<a 
ADDRESS 
730BH 
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boolean - The values are denoted by the identifiers "false" 


ana ‘true, such that false is less than true. 


char - The values of this type are the defined set of charac- 
ters described in reference 8. The following relations 
hold for CHAR types: 
(1) The subset of character values representing the 
digits 0 te 9 is -erdered and contiguous. 
(2) The subset of character values representing the 
upper case letters A to Z is ordered and contiguous. 
(3) The subset of character values representing the 
lower case letters a to z is ordered and contiguous. 
Type declaraiton entries, however, are generated from user 
defined types found in the source program. It is possible to 
define a chain of type declarations. An example of this would 
be an array of the type array which is itself of type integer. 
The symbol table entry for a type is as follows. 
An integer type has the FORM value of 42H, a real type has the 
FORM value of 4AH, a character type has a FORM value of 52H, 
and a boolean type has a FORM value of 5AH. A FORM value of 
7AH indicates that a type declaration entry must be accessed 
to determine the complete type of entry. The field following 
the form is a one byte field containing the hashed value of the 
printname. The next byte contains the printname's length, 
which is followed by the printname characters of the type 
identifier. The last two bytes contain the address of the 
specified type. An example of a simple type entry is given in 


Figure 6. 
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TYPE NUM = INTEGER; 
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There are seven different user definable types in 
NPS-PASCAL. A type declaration entry is constructed whenever 
a scalar type, subrange type, array type, record type, set 
type, file type, or pointer type is encountered. 

(1) Scalar Types 

By their definition a scalar type is an order- 

ed set of values whose identifiers are enumerated to denote 
their values. The form field entry in the symbol table has 
the value 07H. Scalar entries are the only type declaration 
entries that have an accessible printname. Consequently, the 
next two fields hold the printname hash value and the printname 
length. The printname characters follow these fields. The 
next field is a byte value containing the enumerated value of 
the scalar identifier. The final field is a two byte field 
storing the symbol table address of the parent type. Figure 7 
displays the scalar entry format in the symbol table. 

(2) Subrange Types 

A subrange type is a duplicate declaration of 

any other predefined scalar type, integer type, or character 
type, but with a specified lower and upper bound on its ele- 
ments. The form field of a subrange entry is OFH for enumerat- 
ed elements, 4FH for integer elements, and O8FH for character 
elements. Bytes six and seven store the address of the sub- 
range elements parent type. Bytes eight and nine hold the low 
value of the range, while the next two bytes contain the high 
value. The following field is two bytes in length and stores 


the total number of elements in the range. The final two bytes 
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SBTBL ADDRESS OF 
7347H PARENT TYPE 
7346H ENUMERATION VALUE 
7345H ASCII CHARACTER D 
7344H ASCII CHARACTER E 
7343H ASCII CHARACTER R 
73425 PRINTNAME LENGTH 
7341H HASH 
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hold the Beer ecencak veerde value, which is utilized during 
array access. A typical subrange entry is shown in Figure 8. 
(3) Array Types 

The previous type declaration entries in NPS- 
PASCAL are called simple type entries. They are symbol table 
entries utilizing a single predefined type. Structured types 
are compositions of types in NPS-PASCAL. In other words, one 
or more types are utilized to describe a symbol table entry. 

The array type is a structured type consisting 
of a fixed number of components that are all of the same "com- 
ponent" type. The number of components are specified as a 
scalar or subrange type and are referred to as the index type 
(integer and real types are not allowable index types, how- 
ever, the scalar or subrange type can be of type integer). 
The component type is of any type. 

The symbol table format for an array entry 
has a form field value of 17H. The following byte specifies 
the number of indexes, or dimensions in the array. The next 
two fields are both two bytes long, the first containing the 
address of the component type; the second containing the total 
storage requirements in bytes for the array. The eleventh 
byte holds a value representing the array's component type as 
determined in Table 1. A two byte field follows with the 
Symbol table address of the array's first dimension. If the 
array has more than one dimension, two bytes are allotted in 
the symbol table to store the address of each remaining 


dimension. Figure 9 shows an array symbol table entry. 
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TYPE PRIME = RED .. BLUE; 
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Basic Type of Components 


Value Meaning (Type of Component) 
00H Ordinate 
01H Integer 
02H Character 
03H Real 
04H Complex 
05H Boolean 
TABLE 1 
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(4) Record Types 

A record is another NPS-PASCAL structured type. 
This structure has a fixed number of components, called fields, 
each of which can be of any defined type. The symbol table 
entry for a record has a form field value of 1FH. Bytes six 
and seven contain the storage requirements in bytes for the 
record. Bytes eight and nine store the symbol table address 
of the last field contained in the record structure. Figure 
10 formats a record entry in the symbol table. 

Each record field consists of an identifier and 
a type, and has a unique format in its symbol table entry. 
The form field has the constant value of 5FH. The following 
two fields are byte values for the hash value and the length 
of the field's printname. The next field holds the printname 
characters. The address of the parent record is stored in 
the next two bytes. The following field has a one byte length 
and is used to store the record field's type. The choice of 
values to be stored is the same as the list specified for an 
array's component type. Two more bytes are utilized to store 
the symbol table address of the type specified. The last field 
of this entry is two bytes long and holds the offset of the 
record field from the base of the record. The format of a 
record field entry is specified in Figure ll. 

NPS-PASCAL supports the variant field and tag 
field constructs of records. These two kinds of record fields 
have similar symbol table entries as just described above, with 


the exception that the variant form field is ODFH, and the 
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tag form field is 9FH. 
(5) Set Types 
The set structure defines a set of values, 
which is the power set of a declared base type. The base type 
is required to be a scalar or subrange type. The set type 
symbol table entry has a form field value of 27H. The follow- 
ing two bytes contain the symbol table address of the set type 
identifier. Figure 12 shows a sample set entry in the symbol 
Eable. 
(6) File Types 
A NPS-PASCAL structure consisting of a sequence 
of components, all of the same type, is simply called a file. 
A file type indicates a natural ordering of the components, 
Breese POSition in the file defines the sequence. A file type 
declaration entry in the symbol table has a form field value 
of 2FH. The symbol table address of the file type's identi- 
fier is contained in the next two bytes. The file type format 
is displayed in Figure 13. 
(7) Pointer Types 
NPS-PASCAL supports dynamic variables which 
are generated without any correlation to the static structure 
of the program. These variables are assigned a special type 
called pointer type. The symbol table entry for this type 
declaration is shown in Figure 14. The form field value is 
set to 37H, while bytes six and seven of the entry hold the 


symbol table address of the pointer type identifier's entry. 
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d. Variable Entries 

Each variable declared in a NPS-PASCAL program is 
inserted in the symbol table. The form field of the variable 
entry contains a value which describes the type of the program 
variable. The values for this field and their associated types 
are shown in Table 2. Following the form field are the fields 
containing the variable identifier's printname hash value, 
length, and the printname characters. A two byte field which 
contains the variable's starting address in memory appears 
after the printname characters. This address is an offset 
from the base of the variable area, called the Program Refer- 
ence Table (PRT), assigned by the NPS-PASCAL Code Generator. 
The variable's type determines the length, or number of bytes 
assigned to the variable in the PRT. The compiler keeps a 
count of the total amount of storage and passes this value to 
the Code Generator at the completion of a successful program 
compilation. The Code Generator subsequently converts the 
relative addresses in the intermediate code to absolute ad- 
dresses in the final target machine code. An example of a 
variable entry is given in Figure 15. 

e. Procedure and Function Entries 

Every procedure and function in a NPS-PASCAL pro- 
gram has an associated entry in the symbol table. In the case 
of a procedure entry, the form field is assigned the value 04H. 
The hash value, length of printname, and the printname charac- 
ters fields immediately follow the form field. A one byte 


field follows the printname and stores the number of parameters 
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associated with the procedure. A two byte field is next, 
Seorang the symbol table location of a listing of the proce- 
dure's parameter types. This listing is referenced by the 
compiler to ensure proper parameter mapping, and is located 
immediately after the final procedure parameter entry in the 
symbol table. Following the parameter types address field in 
a procedure entry, are three more two byte fields. The first 
field gives the Program Reference Table (PRT) address assigned 
to the procedure identifier. The second field gives the PRT 
address assigned to the procedure save block pointer (SBP). 
The SBP construct is based on a similar construct in Algol-E 
(10) to permit recursive subroutine calls. The final field in 
the entry holds a label value that must be branched to when 
the procedure is invoked. Figure 16 illustrates the format 
of this entry. 

A function entry in the symbol table duplicates a 
procedure entry with two exceptions. A function entry has a 
form field value of 05H; and one byte field is added at the 
end of the entry to designate the type of the function. Func- 
tion type values are similar to the variable types specified 
/miefable 2. A sample function entry appears in Figure 17. 

(1) Formal Parameters 

Formal parameters provide a mechanism that 

allows a procedure or function to be repeated with various 
values being substituted. The formal parameters are declared 
in the procedure or function declaration and can be of four 


types: value parameters, variable parameters, procedure para- 
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PROGEDURE LO (X: INTEGER; VAR Y : INTEGER) ; 
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meters, and function parameters. Each declared parameter has 
an associated symbol table entry. A value parameter entry has 
exactly the same format as a variable entry. A variable para- 
meter entry also duplicates a variable symbol table entry, with 
the exception of the form field. The high order bit of the 
form value is set to one for all variable parameters. Proce- 
dure and function parameters are entered as described above for 
procedure and function symbol table entries. 

Figure 18 displays a sample series of symbol 
table entries starting with a procedure entry and followed by 
various formal parameter entries. Note that the final few 
bytes show the listing of the procedure's parameter types that 
will be utilized for mapping actual parameters to the formal 
parameters. 

f. Symbol Table Construction Procedures 

Several standard construction procedures were de- 
veloped for the manipulation of the symbol table. The proce- 
dure ENTERSVARSID is used by all routines which construct a 
symbol table entry containing an accessible printname. This 
procedure calls ENTERSLINKS to assign the collision and pre- 
vious symbol table entry address fields. The procedure 
ENTERSPNSID is then called to insert the printname hash value, 
printname length, and the printname characters. Control re- 
turns to ENTERSVARSID where the initial form value of the entry 
is set. When no printname is associated with the symbol table 
entry, ENTERSCOMPLEXSTYPE is called to zero the collision fields, 


enter the previous symbol table entry address, and to set the 
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form field specified when ENTERSCOMPLEXSTYPE was invoked. 
Various other construction routines must be called to add 
additional descriptive fields for the particular entry under 
eonstruction. 

g. Symbol Table Access 

Symbol table access in the NPS-PASCAL compiler is 
accomplished through the use of standard lookup procedures, 
and pointers contained within entries. Access is also depend- 
ent upon the current block level of the input program. Because 
Pascal is a block structured language, the rules of global and 
local variables are followed. Whenever a procedure or function 
declaration is recognized, the block level of the program is 
immediately incremented, thus permitting variable names to be 
reused in this new level. Any variable declared in a lower 
level can be accessed in a higher level eee that the 
Variable name is not a duplicate and that the lower level 
Peprable is in fact. global to the current higher level. Ob- 
viously, identical variable names cannot be declared in the 
same block level. When the compiler recognizes a complete 
procedure or function, the block level is decremented by one 
and the variables local to that block have their entries in 
the HASHSTABLE deleted. 

The procedure LOOKUPSONLY can be called with the 
address of a printname as a parameter. The procedure calls 
CHECKSPRINTSNAME to compare the symbol table entry's print- 
name with that of the parameter. The hash table index of 


the parameter is used along with the symbol table collision 
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fields to access the correct entries in the table. The pro- 
cedure LOOKUPSPNSID was designed to accomplish the same task 
as LOOKUPSONLY with the additional features of checking the 
form field of the entry with a second parameter, and to check 
the declared block level of the printname. If either pro- 
cedure succeeds in matching a symbol table entry, the variable 
LOOKUPSADDR is set to the starting address in the symbol table 
of the matched entry, and the value TRUE is returned to the 
calling routine. 

Upon compilation of a program, successful or not, 
the symbol table is copied into a separate file of type "SYM". 
The NPS-PASCAL user assistance program SYMBOLSTABLE may then 
be invoked to print out the contents of the program's symbol 
table. 

26) Built-in Symbol Table Entries 

Special mention must be made of the symbol table en- 
tries that are predefined, or built into the NPS-PASCAL 
compiler. These entries contain type entries, file entries, 
procedure entries, function entries, and constant entries that 
make up the NPS-PASCAL standard identifiers. The standard 
identifiers are declared in the BUILTSINSTABLE. 

The entries in BUILTSINSTABLE follow much the same 
construction rules as those of the compiler generated symbol 
table. The main difference is that the built-in symbol table 
has to be entered by hand. Consequently, the table was located 
@t the first available memory location (106H) for ease of im- 


plementation and to simplify the addition of other built-in 
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entries. Appendix C lists a table of the standard identi- 
fiers found in BUILTSINSTABLE, and their usage is detailed 
in the NPS-PASCAL User's Manual. 

All BUILTSINSTABLE entries have an accessible print- 
name. Consequently, the first six fields of standard entries 
have the format shown in Figure 19. Built-in types and built- 
in files contain only these six fields. Built-in constants 
have an additional field that stores the constant's value. 
Built-in functions have a one byte field following the print- 
name characters that holds a sequential number that uniquely 
identifies the function. The type of the function is stored 
in the following one byte field. The next byte holds the 
number of parameters that the built-in function has. Depend- 
ing on this value, a sequence of fields follow, all of which 
are one byte in length, ranging from one to the number of 
Parameters, storing the type required of the actual parameters. 
Standard function type fields are assigned values in accord- 
ance with the format specified in TABLE 1. Built-in proce- 
dures also have the one byte field holding the unique sequen- 
tial number that identifies the procedure. However, the 
number of procedure parameters and their expected types are 
not stored in the built-in entry because most NPS-PASCAL 
standard procedures have a variable number of parameters. 
Consequently, various procedures check a built-in procedure's 
actual parameters to ensure proper parameter mapping. 

Since BUILTSINSTABLE entries are entered manually, 


certain entries must be made in the compiler's HASHSTABLE. 
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This table is used to store the starting address of either a 
BUILTSINSTABLE or SYMBOLSTABLE entry based on the entry's hash 
value. Procedure INITIALIZESSYMSTBL stores the appropriate 
BUILTSINSTABLE address at location HASHTABLE(SYMHASH) , where 
SYMHASH is the hashed value of the printname entry stored in 
the fourth field of the standard entry. 

Many of the standard functions, and their parameters, 
in NPS-PASCAL can be of type integer or real. In this case, 
the function type and parameter type fields were assigned to 
the value 13H. This value serves as a flag to the compiler 
to permit either type integer or type real values to be seman- 
merely acceptable. Similarly, standard functions SUCC and 
PRED and their single parameter can be of any type except 
real. Therefore, their type fields were given the value OF3H 
which alerts the compiler to accept any type, except real, in 
the evaluation of these two functions. 

Further standard identifiers may be added to NPS- 
PASCAL, provided the above entry specifications are satisfied 


and that an associated entry is made in the HASHSTABLE. 


E. PARSER 

The parser is a table driven automation and is modelled 
after the ALGOL-M (9) and BASIC-E (12) parsers. The LALR(k) 
parser generator (5) produced the required parse tables and 
the vocabulary table, VOCAB, which together with the parse 
Stacks serve as the major data structures in the parser. The 


Parser operates by receiving tokens from the scanner, analyz- 


Bil 


2’ yadtde sis te been yadaw, & 








figstggs sn envove eee CEST AA: IMD 82h) 


(MEARMYR | SATAN notasso£ aa pico 
rine ome nd Ee ody to outs bodeni 9 

: yrtae bisbaade sit 40 £ 
a: sey Be enotsoat bishaste sisi 

' lJeen zo tepednt eays 26 ed 15D | . 

ow eblel® eayd te¢emazsq Bas oun 

‘qnes aft of pal? 6 ss eevae@ Boley BLeP a 

















[eer egyd 30 tevetat sqyl) tedszan 


tA 


‘sau? beebreze ‘yee limee eldsse 

us to ed seo tedemsisa Slyaae 

a . eft aevie eiew ebiets sayy ——— ,9'30 
says Yee Jgeons ad zal eed $i 3 

ancljonus ows seed to ol 

hse ed vam areliisnebi brshaasve sortdth 

; 1 BOL iseqs yxdes evods ef? babivom 


| sda ¢ witns besaloosea aaa 


smios us evitsb *icaa? s 21 1668 
S-"IBAG mrs. (8) MIODIA 
tivpe: efd Seovbote 4a): sa 
2iiepes uotdw ,BADOV' \eldss yee. 
PexusINIse 636 ZOlsm, ons on ovate | 


e222 ensadot ontvieoess ied ace 


ar. eee a 


ing them to determine if they are part of the NPS-PASCAL 
grammar, and then accepts or rejects the token in accordance 
with the syntax of NPS-PASCAL. If the token is accepted, one 
of two actions is taken. The parser may stack the token and 
continue to request tokens in the lookahead state, or it may 
recognize the right part of a valid production and apply the 
production state which results in a stack reduction. If the 
parser rejected the token, or it determines that the token 
received does not constitute a valid right part of any pro- 
duction in the NPS-PASCAL grammar, a syntax error will be 
printed at the console and the RECOVER procedure is called. 

RECOVER is a procedure that permits continued program 
compilation in spite of the occurrence of a syntactical error. 
It causes the parser to back up one state and attempts to 
continue parsing from that state. In the event of failure, 
the parser continues to back up until the end of the current- 
ly pending reduction is encountered. At that point the in- 
valid token is bypassed and an attempt is made to parse the 
following token. This process continues until an acceptable 
token is found. 

The parse stacks in NPS-PASCAL consist of a state stack 
and eight auxiliary stacks. The auxiliary stacks are para- 
llel to the parse stack and are used to store information 
needed during code generation. The parse stacks include: 
BASESLOC - stores the symbol table address of the current 

identifier; 
FORMSFIELD - stores the form value of the current identifier 
as stored in the symbol table; 
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TYPESSTACK - stores the type value of an identifier; 

PRTSADDR - stores the assigned PRT address of an identifier; 

LABELSSTACK - stores label values to be utilized with branch- 
ing instructions; 

PARMSNUM - stores the number of formal parameters associated 
with a procedure or function; 

PARMSNUMSLOC - stores the symbol table address of the list of 
formal parameter types associated with a procedure 
OL function; 


EXPRESSSSTK - stores the type value of an expression. 


F. CODE GENERATION 

The parser not only verifies the syntax of the source 
statements, but also controls the generation of the inter- 
mediate code by associating semantic actions with production 
| rules. When a reduction takes place, the SYNTHESIZE procedure 
is called with the production number as a parameter. The 
SYNTHESIZE procedure contains an extensive case statement 
keyed by the production number to perform the appropriate 
semantic actions. The syntax of the language and the seman- 
tic actions for each reduction are listed in Appendix D. 

A key element in understanding the compiler is a knowl- 
edge of NPS-PASCAL storage structures, the diverse operators, 
the employment of procedures and functions, and the communica- 
tion routes between the compiler and the user. These partic- 
ulars are elaborated below, along with a description of the 


compiler's pseudo operators, to assist in understanding 
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NPS-PASCAL compiler constructs and to explain the logic used 
in generating the intermediate code that will, in turn, be 
used to generate the target 8080 machine code. 
1. Storage Space Allocation 

Allocation of storge space in NPS-PASCAL is depend- 
ent on the type cf data encountered. For each program vari- 
able requiring storage space, the compiler specifies the num- 
ber of bytes to be set aside, and keeps a count of the total 
storage allocated. The total count is then passed to the Code 
Generator for the purpose of establishing the size of the Pro- 
gram Reference Table. 

a. Byte Data 

Byte data items are stored in a single byte loca- 

tion in memory. These data items may represent characters, 
numbers, or boolean data. 

b. Integer Data 

Integers are represented by two byte values and 

are stored in memory with the high order byte preceding the 
low order byte of the integer number. This storage process 
follows the processing requirements of the 8080 Microproces- 
sor (10) to complete moves of data from memory, or the stack, 
into the processor double byte registers at program execution 
time. An example of the execution time POP and PUSH operation 
is shown in Figure 20. Integers are represented in two's 
complement form, with the high order bit acting as the sign 
Bee. A zero high order bit indicates a positive integer value 


and a one indicates a negative value. 
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ea Real Data 

Real numbers in the NPS-PASCAL compiler are rep- 
resented in binary coded decimal (BCD) format. Every real 
number is represented by 14 digits and is stored in eight con- 
tiguous bytes. When loading a BCD value in the execution 
stack, the byte, located at the lowest memory address location, 
contains the sign of the number along with the sign and magni- 
tude of the exponent. Succeeding bytes represent two decimal 
digits and are ordered in a backwards fashion. The byte that 
is the closest to the exponent byte represents the last two 
digits of the number, while the last byte of the number con- 
tains the first two digits. Figure 21 displays a BCD number 
stored in memory. 

The exponent byte in a BCD number uses the high 
Order bit to indicate the sign of the number -- a high order 
one indicating a negative number, while a zero represents a 
positive number. The remaining seven bits are used to repre- 
sent the exponent and its sign. A bias of 64 is used for the 
exponent representation. Values greater than 64 depict a 
positive exponent; values less than 64 depict a negative 
exponent; and the exponent result equals the difference be- 
tween 64 and the value. This reference point allows a range 
of exponent values from -64 to +63. The BCD number always 
assumes the decimal point is positioned before the first digit. 

ad. String Data 
Strings are stored sequentially in NPS-PASCAL. 


The first byte of the string stores the string length, thereby 
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limiting strings to a maximum of 255 bytes. Immediately 
following are the ASCII characters that compose the string. 
2. Arithmetic Operations 
a. Logicals 
Logical operations, or boolean operations, act on 
byte values of zero and one only. A zero value indicates a 
false condition, while a non-zero value indicates true. Log- 
ical operations requiring comparison between two elements 
returns the resulting value of the operation in the TRUE or 
FALSE form. 
b. Integers 
Arithmetic operations with integers are performed 
by taking the top two values from the execution stack, plac- 
ing them in the double byte registers in the 8080 Microproces- 
sor, and carrying out the requested operations. Integer arith- 
metic operations include addition, subtraction, multiplication, 
Sevesiton with truncation, modulo division, logical comparisons, 
and transformations to BCD format. All computation results, 
except for transformations, are returned to the execution 
stack in the two byte integer format. Any relational opera- 
tion on two integer values is carried out in NPS-PASCAL, in 
accordance with the rules for integer arithmetic. 
c. Reals 
Real arithmetic operations are more complex than 
those with integers due to the nature of the BCD format. 
The process is similar to that of integers, however, where 


real numbered pairs are moved into the 8080 registers. The 
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required operation is applied, and the resulting value is sent 
back to the NPS-PASCAL stack in its eight byte BCD format. 
NPS-PASCAL real values also follow the rules of integer arith- 
metic whenever two real values have a relational operator 
occurring between them. 
g2) set Operations 
NPS-PASCAL supports the three set operators: set union; 
set difference; and set intersection. As before, 8080 regis- 
ters receive the two set operands located at the top of the 
stack. The set operation is performed and the resulting set 
value is returned to the top of the stack. The relational 
operators of set equality and inequality, set inclusion, and 
set membership were not implemented in this version of NPS- 
PASCAL. 
4, String Operations 
The relational operators of equality and inequality 
have been implemented for strings. The remainder of the re- 
lational operators denote lexicographic ordering according 
to the character set ordering, and have not been implemented 
in this version of NPS-PASCAL. 
5. Procedures and Functions 
Procedures and Functions, also called subroutines, 
give PASCAL the ability to display program segments as explic- 
it subprograms. The only difference that exists between a 
procedure and a function is that a function returns a value 
to the top of the execution stack after it is invoked, while 


@ procedure does not. This means that a function call 
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actually represents an arithmetic expression. Procedure 
calls, however, stand alone as a program statement in NPS- 
PASCAL. Due to language extensions, NPS-PASCAL allows compila- 
tion of separate functions or procedures as complete programs. 
These EXTERNAL programs can then be called by any other NPS- 
PASCAL program. 
ae invocation 

Procedures and functions can be invoked with zero 
Or more actual parameters. The list of actual parameters are 
substituted into the corresponding list of formal parameters 
declared in the procedure or function definition. If the 
formal parameter is a variable parameter, the actual parameter 
has to be a variable. Should the formal parameter be a value 
parameter, then the actual parameter can be an expression -- 
provided the expression type matches the formal parameter 
type. For procedure and function formal parameters, the actual 
parameter must be a procedure or function identifier. Actual 
Parameter types are checked against formal parameter types, 
stored in the symbol table, during program compilation. The 


method of passing actual parameters values is via the execu- 


iWeeton stack, as shown in Figure 22. The procedure or function's 


code location is generated in the form PRO <label> , where 
PRO is a mneumonic meaning branch to subroutine, and <label> 
is the label value stored in the subroutine's symbol table 
entry. 

b. Storage Allocation 


All parameters and variables declared within a 


60 


she not ~ 0h 























“39e “ai +a 
-siieewp evwells weaken ann 
.whsrpetq ers fanes es ee mubsDotg 2a" 





—, 
eit ascito yns yd belles ed asd Aad 
, «a 
ss rely sovit wd aso enolgshot bas. e2vbacd 


: Semataq .szvios Jo 2all adit -tissamexsg £. 


«gq lamzot 90 gall palbaeqsesxxoo eda ogn 5 


. 
YS 
‘ 


aeljliniteh aettanu to, e1ybasosg 

5 lsuros ed? ,tecsadierag sldeixey s al 7 
i=jemersy; Lamrot sés Blood sidsias 

-- NO tetenTaw n8 md 9S opeeiitag ment he add 

SOOLeT5Q . tol sis senaiant egy2 nolaaexgxe @ 

prs 2,0 }om234q nario? soltuawt bas sapbeos 

) 

saititnebs notaeae? so aiwheocoizg & 6d fe 

eteae rsa lamp tantens hextnsi> SIs ae 

sails nerpeta patiuh .,eldsd JIodarve sim 

+ siv el eeulsv stesemetsec Lausos enias 

ent 2S oxawelt al noe a5 ee 

OfG moc edt ol O97 Tenep at + 

Juoidiuwe oF noAazd patisest Sinom 
2'eo, vOydue eds af Setose episv) Iau 
notsésol LA-epasca alana 


8 
it aa e t 
' betefoeh ealdseitey Bas eiezemeiag CLAY), .? 


+ B84 2 Lae 


EXECUTION STACK 
expression? 


<expression>, 





ao 







Actual Parameters 
loaded on Stack 


Contents of stack 
up? to=point of 


subroutine call 


SLACK CONTENTS AT TIME OF SUBROUTINE CALL 


FIGURE 22 


61 





ZAUDTS 


procedure or function are assigned a location in the PRT. 

These locations immediately follow the PRT location of the pro- 
cedure or function identifier. Upon recognition of a complete 
subroutine, another PRT location is allocated. This location 
is called the Save Block Pointer (SBP) for the subroutine. 

The PRT locations extending from the subroutine's identifier 


location through the SBP make up a Procedure Control Block 


fees), The effect is that the PCB is a contiguous set of PRT 
cells, as seen in Figure 23. The PCB construct is based on 
the one used in ALGOL-E (10), and its usefulness is in re- 


euesive Calls to a procedure or function. 
c. Parameter Mapping 

NPS-PASCAL uses a scheme similar to ALGOL-E in 
mapping the actual parameters of a procedure or function to 
its formal parameters. After recognition of NPS-PASCAL sub- 
routine identifier, the actual parameters that are identifiers, 
have their intermediate code generated in the form of a 
"PARM" or "PARMV" mneumonic followed by the PRT location of 
the actual parameter. These mneumonics load the execution 
Stack with the values of the actual parameters in the Code 
Generator. If the actual parameter is an expression, the 
expression result will be loaded automatically on top of the 
execution stack. Consequently, the compiler generates the 
mMneumonic "PARMX" after the recognition of a complete express- 
ion that is acting as a value parameter. PARMX will not re- 


quire any action in the Code Generator. 
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VAR CH : CHAR; 
PUNCTION ZERO (F, A : REAL) -: REAL; 


War x, ~Z--;-- REAL; _ 


FORMAL PARAMETERS 


SBP 
SX 
Z LOCAL VARIABLES 
PROCEDURE 
CONTROL 
BLOCK 


<« FUNCTION NAME 


A PROCEDURE CONTROL BLOCK 


FIGURE 23 


63 


bed 


ria 


ORTHOD 





With the actual parameter in place, program control 
will branch to the procedure or function itself. The compiler 
generates code to place three items on the top of the execution 
stack. The first item is the number of formal parameters (f) 
in the subroutine, the second is the PRT location of the sub- 
routine's identifier (IDLOC), and the third is the SBP address 
in the PRT (SBPLOC) of the subroutine. The compiler then gen- 
erates the SAVP operator, followed by the total byte count of 
PRT storage (t) assigned for the subroutine's identifier and 
all formal parameters. This is followed by a listing of byte 
storage required by each formal parameter (Pi) in the PRT in 
descending order. The execution of the SAVP operator is ex- 
pected to cause the following actions to be generated by the 
Code Generator. 

(1) The SBP location is examined 

(a) 1£ SBP = 0 then SBP :=1, else 

(b) SPB >0 and segment of length (SBPLOC- 
PDROC +2) si obtained from the .top' of 
available memory -- say at address x. 
The PCB is then copied from the PRT to 
the memory segment starting at x. The 
contents of the segment at x is then 
Called the Save Block (SB)... SBP : = x. 

(2) The top two elements of the execution stack 

are deleted; the next element (f) is copied 


and deleted from the stack; pi = Py° 
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(3) If £ = 0 then halt. All actual parameters have 


been copied into the formal parameter loca- 
tions) in: the PCB. 
(4) PRT location (IDLOC + t - P,): = top of execu- 
tion stack; delete the top element of the ex- 
ecution stack; t :=t- Pi Py := p,tl. 
Cie = === Tigo: tomsitep (3). 
This process ensures that recursively calling a subroutine 
will not destroy the local variables and parameters of any 
preceding calls. 
d. Function Return Value 

Coupled with the SAVP operator is the UNSP (un- 
Save) operator that reverses the actions of SAVP. ‘Two para- 
meters are required at the top of the stack -- the SBP loca- 
tion in the PRT (SBPLOC), and the PRT location of the sub- 
Bemerime identifier (IDLOC). The actions, then, of UNSP are: 

(1) The value stored at IDLOC is copied to the 
top Of the stack (this returns™a value for 
function calls; this value will be deleted 
for procedure calls). 

(2) If the value of SBPLOC is greater than 1 then 
the SB at location SBPLOC in the free memory 


area is copied back to the PCB and the memory 


1S freed. if SBP = 1 then SBP>=-07 Consequent- 


ly, the UNSP operator returns a value from 
function calls, and restores the PCB in the 


event of recursive calls. Figure 24 shows 
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PROCEDURE LO (X : INTEGER; VARY : INTEGER); 
VAR TFMP : REAL 
Begin 
TEMP : = SQRT (X) 
y : = TRUNC (TEMP); 
End; 
Dies) = 6 
Bo(49, D): 
BEFORE SAVP 
SBP | 0 | 
rs> SBP in PRT TEMPS, = | 
Lo in PRT 7 ees 
# Parameters ts ie 
Actual 7 ea 
Parameters D ese | 
AFTER SAVP, BEFORE UNSP 
so SE 
TEMP [__-_ 
7 (Sled 
| CI) 
LOS o 
ie ot ee 
AFTER UNSP 
SBP On 
TEMP 
¥ 
a 
UO} 
rs- D 
FIGURE 24 
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the actions of the SAVP and UNSP operators on 
the PRT and the execution stack. 
e. Forward Declared Procedures and Functions 

To permit the invocation of a procedure or func- 
@2on prior to its definition, NPS=—PASCAL utilizes a forward 
reference. The forward reference consists of the procedure 
(function) head, followed by the word FORWARD. When the pro- 
cedure (function) is defined later in the program, the para- 
meters are not repeated. FORWARD is not a reserved word in 
NPS-PASCAL. It is instead referred to as a "directive." 
Directives are identifiers in NPS-PASCAL, that can only occur 
immediately after a procedure or function heading. Directives 
are entered in the NPS-PASCAL BUILTSINSTABLE. 

f. External Procedures and Functions 

External Procedures and Functions is a NPS-PASCAL 
extension to Standard Pascal. The outcome of this construct 
is that NPS-PASCAL functions and procedures can be separately 
compiled as complete programs. The NPS-PASCAL user can then 
gain access to one of these programs by an external reference 
to it. The format of this reference is a procedure (function) 
head, followed by the word EXTERNAL. This construct is an- 
other NPS-PASCAL directive. The intermediate code for the 
external file would then be read from the disk and incorporated 
into the program intermediate code as if it were a standard 
subroutine. This feature of NPS-PASCAL has not been thoroughly 


tested for proper implementation. 
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g. Standard Procedures and Functions 
The built-in procedures and functions that cur- 
rently exist in NPS-PASCAL correspond to the standard proce- 
dures and functions specified in STANDARD PASCAL. However, 
their operation is considerably different than user defined 
procedures and functions. The compiler first generates code 
for any subroutine actual parameters. A unique mneumonic for 
the built-in procedure or function is then generated which 
tells the Code Generator or Interpreter that it must remove 
the parameters from the execution stack, do the necessary 
operation, and return the result to the stack. The standard 
procedures for input and output (Read, Readlin, Write, and 
Writeln) will not require special action to be taken by the 
Code Generator. The remaining standard procedures dealing 
with files and pointer variables generate mneumonics that 
will require action by the Code Generator. A complete listing 
of NPS-PASCAL standard procedures and standard functions is 
contained in Appendix C and their usage is outlined in the 
NPS-PASCAL USER'S MANUAL. 
ee Saput—-Output 

Input and output can be handled in two ways: via 
console, and via disk. Console I/O refers to the device the 
NPS-PASCAL user is utilizing to provide commands to the sys- 
tem -- usually a CRT terminal or teletype. Disk I/O refers 
Bewutilizing auxiliary files on the disk for data manipula- 


~e1ONn. 
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Input from console I/0 is achieved through READ or 
READLN statements. Console output is accomplished by the 
WRITE and WRITELN statements. Input to the console is accom- 
plished by an operating system routine that reads one full 
console line into an input buffer. The Code Generator gen- 
erates code to examine the buffer and convert ASCII charac- 
ters contained within the buffer into appropriate NPS-PASCAL 
internal integer, real, or string format. The input value 
is associated with the appropriate read statement variable 
parameter and then stored in the space allocated for that 
variable. A write statements takes the internal representa- 
tion of integer, decimal, or byte values and converts them 
to their ASCII character format. These values are then 
provided to an operating system print routine for console 
output. Constants and string variables are stored as ASCII 
strings in the NPS-PASCAL intermediate code; hence, the Code 
Generator will generate code to send them character by charac- 
ter to the system print routine. 

Disk I/0 is achieved through the same read and write 
statements utilized for console I/0. However, to read data 
from a disk file requires that the file identifier be speci- 
fied as the first parameter in a read statement's list of 
actual parameters. The file identifier has to be specified 
faethe same location. for disk write statements as well. The 
file identifiers used in read/write statements must be de- 
G@lared in a variable declaration part of a program block, 


or as a program parameter in the program declaration (called 
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an external file). The file identifier has a specific PRT 
entry assigned by the compiler. At program execution, space 
will have to be allocated on the NPS-PASCAL stack for File 
Control Block (FCB) information necessary to interface file 
operations with the operating system. Additionally, -space 
should be provided for a 128 byte I/0 buffer for every declared 
file. 
7. NPS-PASCAL Pseudo Operators 

The NPS-PASCAL compiler generates a variety of pseudo 
operators that were designed to permit effective conversion 
to 8080 code in the NPS-PASCAL code generator. The design, 
however, also lends itself to the development of an inter- 
preter. Reference 1 contains an account of the current Code 
Generator's organization. With the added ability of symbol 
table access during the 8080 code generating phase, a revised 
Organization is suggested and outlined in Figure 25. The 
description below of the pseudo operators is based on this 
Suggested reorganization of the NPS-PASCAL code generator. 

The top item on the NPS-PASCAL stack, or execution 
stack, is addressed by the variable RA. This variable is 
also known as the stack pointer. The next-to-the-top item on 
the stack is addressed by the variable RB. The values con- 
tained in the first two bytes addressed by RA and RB are 
referenced by the variables RASVAL and RBSVAL. Real and 
string values may be represented on the stack either by 
storing the actual value itself on the stack, or by using an 


eddress that indicates the starting position of the actual 
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storage area. 
a. Literal Data References 

LITA: (Literal Address). This operator generates 
8080 code to place the following two byte integer value on the 
stack. 

b. Allocation Operators 

ALL: (Allocate). This operator generates code 
that initializes the number of bytes of storage required by 
the PRT. The size of the PRT is contained in the following 
two byte integer value. 

LBL: (Label). This operator is used on the Code 
Generator's first pass to calculate the address of the label 
in the code area and save it in the label table using the 
next two byte integer number as the label table index. 

LDIB: (Load Immediate BCD). This operator gen- 
erates code to place the following eight bytes on the execu- 
iron Stack. 

LDII: (Load Immediate Integer). This operator 
generates code to place the following two bytes on the 
execution stack. 

LOD: (Load Byte). This operator generates code 
to move RASVAL into the 8080 HL register. The byte value 
stored at the location prescribed by HL register pair is then 
moved to the top of the stack preceded by a high order zero 
byte. 

LODB: (Load BCD). This operator generates code 


to move RASVAL into the 8080 HL register. The register is 
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incremented by eight, and the value stored at the location 
prescribed by the HL weenie pair, and the preceding seven 
bytes, are moved onto the stack in descending order. 

LODI: (Load Integer). This operator generates 
code to move RASVAL into the 8080 HL register. The two bytes 
stores at the starting location prescribed by the HL register 
pair are then moved onto the execution stack. 

c. Arithmetic Operators 

CNVB: (Convert BCD). This operator generates 
8080 code to replace the BCD value of the top eight bytes in 
the stack by a two byte integer value. Conversion of the 
number takes place in the work area. 

CNL s (Convert Integer). This operator generates 
code to replace the two byte integer value on top of the stack 
by its eight byte BCD value. Conversion of the number takes 
place in the work area. 

CNAI: (Convert Integer Preceding Address). This 
Operator generates code to move the top two bytes from the 
top of the stack into a save area, then to move the following 
integer into the work area. Code is then generated to convert 
the integer into a BCD eight byte format. The resulting BCD 
number is then returned to the stack followed by the two bytes 
from the save area. 

EN22 (Convert Integer Preceding BCD). This 
Operator generates code to move the two bytes from the top 
of the stack into a save area, then move the following BCD 


number into the work area. Code is then generated to convert 
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the BCD number to an integer number. The resulting integer 
value is then returned to the stack followed by the two bytes 
from the save area. 

ADDB: (Add BCD). This operator generates code to 
move the two BCD values from the top of the stack into the 
work area where the sum of the two numbers is calculated and 
returned to the stack in BCD format. 

ADDI: (Add Integer). This operator generates 
code to move the two integer values on the top of the stack 
to the 8080 registers where the sum of the two numbers is 
calculated and returned to the top of the stack. 

SUBB: (Subtract BCD). This operator generates 
code to move the two BCD values from the top of the stack 
into the work area where the first BCD number is subtracted 
from the second BCD number. The resulting BCD value is 
returned to the top of the stack. 

SUBL: (Subtraction Integer). This operator gen- 
erates code to move the two integer values on top of the stack 
to the 8080 registers where the first integer is subtracted 
from the second. The resulting integer value is returned to 
the top of the stack. 

MULB: (Multiply BCD). This operator generates 
code to move the two BCD values at the top of the stack into 
the work area where their product is calculated. The result- 
ing BCD number is returned to the top of the stack. 

MUTn-see (Muli pilya integer). “This. ‘operator igen- 


erates code to move the two integer values on top of the stack 
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to the working area where the product is calculated. The 
resulting integer number is returned to the top of the stack. 

DIVB: (Divide BCD). This operator generates 
the 8080 code to move two BCD values from the top of the stack 
into the work area where the second BCD number is divided by 
the first. The quotient is returned to the top of the stack 
in BCD format. 

MODX: (Modulo). This operator generates code to 
move the two integer values at the top of the stack to the work 
area where the second integer is divided by the first. The 
remainder of the quotient is returned to the top of the stack 
in integer format. 

DIVI: (Divide Integer). This operator generates 
code to move the two integer values at the top of the stack 
to the work area where the second integer is divided by the 
fest. The quotient is returned to the top of the stack in 
integer format. 

LSSB: (Less Than BCD). This operator generates 
code to move the two BCD values at the top of the stack to the 
work area where the two numbers are compared. If the second 
BCD number is smaller than the first BCD number, a one is 
returned to the stack. Otherwise, a zero is returned. 

Eso: (Less Than Integer). This operator gen- 
erates code to move the two integer values at the top of the 
stack to the 8080 registers where the two numbers are compared. 
If the second integer is smaller than the first integer, a 


one is returned to the stack. Otherwise a zero is returned. 
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LEQB: (Less Than or Equal BCD). This operator 
generates code to move the two BCD values at the top of the 
stack to the work BEA. where the two numbers are compared. If 
the second BCD number is smaller than, or equal to, the first, 
a one is returned to the stack. Otherwise, a zero is returned 
ee the top of the stack. 

LEQI: (Less Than or Equal Integer). This operator 
generates code to move the two integer values at the top of 
the stack to the 8080 registers where the two numbers are com- 
pared. If the second integer removed from the stack is small- 
Ge ethan, or equal to, the first integer, a one is returned to 
the top of the stack. Otherwise, a zero is returned. 

EQLB: (Equal to BCD). This operator generates 
code to move the two BCD values on top of the stack to the 
work area where the two numbers are compared. If the two 
BCD numbers are equal, a one is returned to the stack. Other- 
wise a zero is returned. 

EQLI: (Equal to Integer). This operator gen- 
erates code to move the two integer values at the top of the 
Stack to the 8080 registers where the two numbers are com- 
pared. If the two integers are equal a one is returned to 
the stack. Otherwise a zero is returned. 

NSOB: (Not =hqual to BCD)". This operator gen- 
erates code to move the two BCD values at the top of the stack 
to the work area where the two numbers are compared. If the 
numbers are not equal a one is returned to the stack. Other- 


wise a zero is returned. 
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NEQI: (Not Equal to Integer). This operator 
generates code to move the two integer values at the top of 
the stack to the 8080 registers where the two numbers are 
compared. If the numbers are not equal, a one is returned to 
the top of the stack. Otherwise, a zero is returned. 

GEQB: (Greater Than or Equal BCD). This operator 
generates code to move the two BCD values at the top of the 
stack to the work area where the two numbers are compared. If 
the second number is greater than or equal to the first num- 
ber, a one is returned to the stack. Otherwise, a zero is 
returned. 

GEQI: (Greater Than or Equal Integer). This 
Operator generates code to move the two integer values at the 
top of the stack to the 8080 registers where the two numbers 
are compared. If the second number removed from the stack is 
greater than, or equal to, the first, a one is returned to the 
stack. Otherwise, a zero is returned. 

GRTB: (Greater Than BCD). This operator gen- 
erates code to move the two BCD values at the top of the stack 
to the work area where the two numbers are compared. If the 
second BCD number is greater than the first BCD number, a one 
is returned to the stack. Otherwise a zero is returned. 

GRTI: (Greater Than Integer). This operator gen- 
erates code to move the two integer numbers at the top of the 
stack to the 8080 registers where they are compared. If the 
second number is greater than the first, a one is returned to 


the stack. Otherwise, a zero is returned. 
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NEGB: (Negate BCD). This operator generates 
code to move RASVAL to the 8080 registers where it compliments 
the sign bit of the low order byte. RASVAL is then replaced 
Bm the top of the stack. 

NEGI: (Negate Integer). This operator generates 
code to move RASVAL from the stack to the 8080 registers, com- 
pliments the sign bit, and returns RASVAL to the top of the 
stack. 

COMB: (Complement BCD). This operator generates 
code to move the eight byte BCD value from the top of the execu- 
tion stack into the work area, finds the nine's compliment of 
the number and returns the compliment to the top of the stack. 

COMI: (Complement Integer). This operator gen- 
erates code to move RASVAL into the 8080 registers, finds its 
two's compliment, and returns this value to the top of the 
stack. 

d. Boolean Operators 

NOT: (Boolean Not). This operator generates code 
to move RASVAL into 8080 registers and checks the low order 
bit. If the bit is zero, a two byte value of one is returned 
Bomtene Stack. If the bit is one, a two byte value of zero is 
returned. 

AND: (Boolean And). This operator generates code 
to move RASVAL and RBSVAL into 8080 registers for a logical 
AMD comparison of their low order bits. If the relation is 
true, a two byte value of one is returned to the top of the 
Stack. If the relation is false, a two byte value of zero is 


returned. 
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BOR (Boolean Or). This operator generates code 
to move RASVAL and RBSVAL into 8080 registers for a logical 
OR comparison of their low order bits. If the relation is 
true, a two byte value of one is returned to the stack. If 
the relation is not true, a two byte value of zero is re- 
turned to the stack. 

e. String Operators 

LSDI: (Load String Immediate). This operator 
generates code to move a variable number of bytes, depending 
on the value in the following byte of the intermediate code, 
to the top of memory. The address location of the string 
storage area is sent to the top of the execution stack. 

EQLS: (Equal String). This operator generates 
code to move RASVAL and RBSVAL into 8080 registers and con- 
ducts a byte by byte comparison of the strings located at the 
addresses stored in the 8080 registers. If the strings are 
equal, a one is returned to the stack. Otherwise a zero is 
returned. 

NEQS: (Not Equal String). This operator takes 
the same actions as the EQLS operator except that a one is 
returned to the top of the stack when the strings are not 
equal. Otherwise, a zero is returned. 

LEQS: (Less Than or Equal String). This opera- 
tor behaves the same as EQLS except that a one may also be 
returned to the top of the stack of the second string is less 
than the first string in regards to the lexicographic order- 


ing of the character set. 
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GBOS: | (Greater Than. om Equal String). This 
operator behaves the same as the LEQS operator, except a one 
is returned when the second string is greater than, or equal 
to, the first. 

LSSS: (Less Than String). This operator behaves 
the same as the LEQS operator, except a one is returned to the 
stack only when the second string is less than the first string.. 

GRITS: (Greater Than String). This operator is the 
Opposite of LSSS. A one is returned to the top of the stack 
only if the second string is greater than the first. Other- 
wise, a one is returned. 

£ po Stack; Operators 

XCHG: (Exchange). This operator exchanges the 
values of RASVAL and RBSVAL. 

INC: (Increment). This operator generates code 
to increment the value of RASVAL by one. 

DEC: (Decrement). This operator generates code 
to decrement the value of RASVAL by one. 

DEI: (Delete). This operator deletes the top 
two bytes from the stack. RA is set to the position of RB 
and RB is repositioned to the item below its current position 
on the stack. 

Ge store Operators 

STOB: (Store BCD). This operator generates code 
to move RASVAL into the 8080 HL register, and then moves the 
next eight bytes from the execution stack into memory start- 


ing at the address specified in the HL register. The value 


80 
















| 


(isd tos sseco zi? -+pitare, ast egnt) (2 


St Dertigst el ano 6 Jgsoke -soseveqD prec we 


siiots cocesSe4. edt . Sandroeg) 


~ ‘ 
nefits 2esl.e#l enibise Bnoped els 
ein’  , (pnts os? ts 6ea7o) ‘She 

‘ J - 
755 sf of Dbeasetes st sega A rk 


-JAVZE9 San 
8eESeno Siey \tnsune2onl) tS0F 


oc Ve UTAVeAN Gd euted mais 


_ 
> f= ~ —— = . 235s iad iad 


- =a 


no’ va WAVSAT Yo eu ley =rizt 
StaGa 2intT . \eseletl seg 
2 5 7 ‘ee 62 48 .tcede oe sort. 


moti ats Ot beaeltigoges 


isit@.yas SY 0908 ads Gsak a ‘ 
ta neigunese 1 a 
st2.lpes JIM ag So i3 Doege 


of , 


of the BCD number is preserved on the stack by incrementing 
the stack pointer by eight. 

SLO: (Store Integer). This operator generates 
code to move RASVAL into the HL register and then moves the 
value of RBSVAL into memory starting at the location specified 
by the HL register. The value of the integer number is pre- 
served on the stack by incrementing the stack pointer by two. 

SHO: (Store Byte). This operator duplicates the 
actions described by the STOI operator. 

SDB: (Sterne Destruct BCD). This operator gen— 
erates code to move RASVAL into the 8080 HL register, then 
moves the next eight bytes from the stack to memory at the 
address indicated by the HL register. 

Si Dai (Store Destruct Integer). This operator 
generates code to move RASVAL into the 8080 HL register, and 
then moves RBSVAL into memory starting at the address indica- 
ted by the HL register. 

STD: (Store Destruct Byte). This operator gen- 
erates code to move RASVAL into the 8080 HL register, and then 
moves the next byte from the stack to memory starting at the 
address indicated by the HL register. The stack pointer is 


decremented by one (to bypass high order zero left on the 


sieack) . 
h. Array Operators 
SUB: (Calculate Offset to a Specific Array 
Element). This operator generates code to move RASVAL into 


the 8080 HL register. The following byte of information tells 


QL 


1Olse7Ol ef: 38 sregsete FIomeN 4 
olmc “ewata. sit) to soelsy eat 


tert 1osazs06 22a? <«tsove a to28) wot, 









tot S3ego -aiay 
Las ITSseived Je sit obaa ae 


~ 


i) 


= 


iog Anete Sis poitastaasa vo 


lotetsde! TOTS end od 


ai Ac , (OO8 sous dest =ysoR8) 


= * - a _ i «2 
5am ‘JE Huy Shr Qand FAaveee 
- °<20 J 2eee Vo } 
e eae TE ine 1 te 
= at a ag oS 
s a ere 4 is 7,6 
i > TéVes 
a af 1° — By 
Stel DS4 
t - ~~ 
> ace - 
> 4 
EG 76 
« 
—_ 7 
So 7S) CP iwo 


how many indicies must be removed from the top of the stack and 
be used with the displacement vector information stored at 
the location indicated by the HL register. The resultant 
two byte PRT address is placed at the top of the execution 
stack. 

i. Set Operators 

UNION: (Set Unicon). This operator generates code 
to move RASVAL to the 8080 HL register and copy the values 
contained at the location specified by the HL register at the 
top of memory. It generates code to do the same with the 
value stored in RBSVAL. These two sets are then merged into 
one at the top of memory, and their address is returned to 
the top of the execution stack. 

STDiE (Set Difference). This operator generates 
the same code as the UNION operator for the values stored in 
RASVAL and RBSVAL. The two sets are merged into one discard- 
ing any set element that appears in both sets. The address 
Sethe result is returned to the top of the stack. 

DNSEG: Hi(Setbintersection) s“cThiscoperator gen= 
erates the same code as STDIF except the elements that do not 
appear in both sets are discarded. 

EQSET: (Set Equality). This operator generates 
code to compare the two sets stored at the addresses specified 
by RASVAL and RBSVAL. If they are equal, a one is returned 
to the stack, otherwise a zero is returned. 

NEQST: (Set Non-equality). This operator gen- 


erates the same code as the EQSET operator, but returns a 
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one to the stack if the two sets are not equal. Otherwise, 
a zero is returned to the top of the stack. 

INCL1: (Set Inclusion). This operator generates 
code to compare the two sets stored at the addresses specified 
by RASVAL and RBSVAL. If the set stored at RASVAL is included 
in one at RBSVAL, then a one is returned to the top of the 
Stack. Otherwise a zero is returned. 

INCL2: (Set Inclusion). This operator generates 
the same code as INCL1 except the set stored at RBSVAL must 
be included in RASVAL to return a one to the top of the stack. 
Otherwise, a zero is returned to the top of the execution 
Stack. 

J. faite Operators 
XTRNAL: (External File). Not implemented. 
k. Procedure and Function Operators 

PRO: (Subroutine Call). This operator generates 
code to save the present address loaded in the 8080 program 
counter (PC) register, and loads the PC register with the 
address stored in the label table and accessed by using the 
next two bytes of the intermediate code. 

RTN: (Return from Subroutine). This operator 
generates code to retrieve the address stored by the pre- 
viously executed PRO operator, and loads the value in the PC 
register to continue program execution at the point of call 
to the subroutine. 

SAVP: (Save Parameters). This operator gen- 


erates code to save the present procedure control block, if 
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necessary, at the top of memory in a Save Block. The series 
of bytes immediately following in the intermediate code are 
utilized to store the procedure parameters on the top of the 
execution stack into the appropriate formal parameter PRT 
feacations. 

UNSP: (Unsave Parameters). This operator gen- 
erates code to copy a SB from the top of memory back into the 
PCB, if required. The area of memory used by the SB is then 
freed. 

PARM: (Parameter). This operator loads the value 
stored at the following two byte address in the intermediate 
code on the top of the execution stack. 

PARMV: (Variable Parameter). This operator 
loads the following two byte address in the intermediate code 
on the top of the execution stack. 

PARMX: (Expression Parameter). This operator 
indicates that the value on the top of the stack is a para- 
meter for a subroutine. 

ABS: (Burtt in’ Funceron = Absolute Value). This 
Operator is generated by a call to built-in function ABS. 
This operator takes RASVAL and sets the sign bit to positive. 

SOK? (Buile in Function = Square). ~ This operator 
moves the value at the top of the stack into the work area, 
squares it, and returns the value to the top of the stack. 

SIN: Burte in functson — SINE). “Thais operator 
moves the value at the top of the stack into the work area, 


computes the sin, and returns the result to the top of the 
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Stack in BCD format. 

COS-e  (suLle an Funceion, = COSINE). This) operator 
moves the value at the top of the stack into the work area, 
computes the cosin, and returns the result to the top of the 
Seaek in BCD format. 

ARCTN: (Built in Function - ARCTAN). This op- 
erator moves the value at the top of the stack into the work 
area, takes the arc-tangent of it, and returns the result 
Pemene top of the stack in BCD format. 

EXP: (Built an Function — Exponential). This 
operator moves the top value of the stack into the work area, 
raises the value of the base of natural logarithms to this 
wae, and returns the result in BCD format to the top of 
Ene stack. 

LN: (Builesin Function = EN). This operator 
moves the value at the top of the stack into the work area, 
takes its natural logarithm, and returns the result in BCD 
Zommat tO the top of the stack. 

SORT: / (Suit an Function = Square Root). Thais 
operator moves the value on the top of the stack into the 
work area, computes the positive square root of the value, and 
returns the result in BCD format to the top of the stack. 

ODD) (Bulle an, Function = Odd). This operator 
moves RASVAL into an 8080 register and checks the low order 
eae. icf it is set to one, then a one is returned to the top 


Of the stack; otherwise, a zero is returned. 
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BOEN: 8(sulte in function = END OF LINE). This 
operator moves RASVAL to the 8080 HL register. If the value 
stored at the location specified by the HL register indicates 
an end of line, a one is returned to the stack; otherwise a 
zero is returned. 

FOr. = (suai Im Punctton, — End Of File). This 
operator moves RASVAL into the 8080 HL register and checks 
to see if the value stored at that location indicates an end 
Sietale. If the end of file is indicated, a one is returned 
to the stack; otherwise a zero is returned. 

TRUNC: (Built in Function - Trunc). This opera- 
tor moves the BCD value from the top of the stack to the work 
area, truncates the decimal point and all numbers to the 
right of it, and returns the remaining integer value to the 
mop Of the stack. 

ROUND" (Built in Functzon - Round) . This opera- 
tor moves the BCD value on the top of the stack to the work 
area, rounds it to the nearest integer, and returns the inte- 
Sen result to the top of the stack. 

ORD) (Bult anf Funetcion — Ord). This operator 
removes RASVAL from the top of the stack, converts it to an 
integer value and returns it to the stack. 

Coke) “(buULte im Funetazon — CHR). This operator 
moves the integer value in RASVAL to the work area, deter- 
Mines the corresponding character value, and returns the value 


mo the top of the stack. 
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SUCC see (cULLe ein bunction — Successor)... This 
operator moves the value of RASVAL to the work area, deter- 
mines the successor value of the same type, and returns this 
result to the top of the stack. 

PRED: (Built in Function - Predecessor). This 
operator moves the value of RASVAL to the work area, deter- 
mines the preceding value of the same type, and returns this 


result to the top of the stack. 


PUT: (Built in Procedure - PUT). Not implemented. 

GET: (Built in Procedure - GET). Not implemented. 

RESET: (Buzle in Procedure, — RESET)... Not 
implemented. 

REWRT: (Built in Procedure - Rewrite). Not 
implemented. 

SEEK: (Built in Procedure.-— Seek). Not 
implemented. 

PAGE | (Bua le in Procedure .— «PAGE).< -Not 
implemented. 

NEW: (Built in Procedure - NEW). Not implemented. 

DESEZ: «(Butltin .Procedure —-DISPOSE)... Not 
implemented. 


om EoOGLan Control. .Operators 
ENDP >. .(End. of Program). This .operator causes 
the Code Generator to close the intermediate file and the 
object file terminating compilation. 
BRL: (Branch to Label)... This operator calculates 


the label address in the label table using the next two bytes 
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of intermediate code as the entering argument. The code 

count stored at the label table address is added to the address 
of the start of the code area. This value is inserted to the 
PC register and program control continues at that location. 

BCL: (Branch Conditional Label). This operator 
calculates the branching address in the same manner as the 
BRL operator. However, this operator moves RASVAL into an 
8080 stack and checks the low order bit. If a one is found, 
the branch is executed. If the low order bit is zero, the 
program continues without branching. 

KASE: (Branch to Case). This operator compares 
the next two bytes of intermediate code to the value of RASVAL. 
If they are equal then a branch is executed using the follow- 
ing two bytes of intermediate code as the argument for the 
label table. If the value does not equal RASVAL then program 
execution continues without branching. (Note: "CASE" is 
not used here, it is a reserved word in PL/M which would 
cause conflicts in the compiler source program.) 

Me Lnpuc-Outpuce Operators 

RDBV: (Read Variable BCD). This operator gen- 
erates code to read a BCD number from the input file, change 
it into its acceptable storage form, and store the eight byte 
internal format the location specified on the top of the 
execution stack. 

RDVI: (Read Variable Integer). This operator 
generates code to read an integer number from the input file, 


change it into its acceptable storage form, and store the two 
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byte number at the location specified on the top of the 
stack. 

RDV: (Read Variable Byte). This operator gen- 
erates code to read a byte variable from the input file, 
change it into its acceptable storage form, and store it at 
the location specified on the top of the stack. 

RDVS: (Read Variable String). This operator 
generates code to read a string variable from the input file, 
and store it at the location in memory specified by the top 
two bytes on the stack. 

WRTB: (Write BCD). This operator generates code 
to move the eight hyte BCD number at the top of the stack in- 
to the work area, changes the number into its printable form, 
and sends the number to the output file. 

WRTI: (Write Integer). This operator generates 
code to move an integer number from the top of the stack into 
the work area, changes it into its printable format, and sends 
the number to the output file. 

WRT: (Write Byte). This operator generates code 
to move the two byte value from the top of the stack into the 
code area, changes it into its printable format, and sends it 
Ee tche output file. 

WRTS: (WeLce String). This operator generates 
code to move the string, stored at the address specified in 
RASVAL, to the output file. 

DUMP: (Starts New Output Line). This operator 
generates code to send a carriage return and line feed to the 
Sucput file. 
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TEP. CONCLUSIONS 


The NPS-PASCAL project is a step closer to the full imple- 
mentation of STANDARD-PASCAL for Intel 8080 based microcomputers. 
With the major exceptions of PASCAL sets and files, the NPS- 
PASCAL compiler portion is complete. 

The associated development of a complete 8080 code genera- 
tor or interpreter is required to complete integrated program 
testing and timing tests. This will determine program correct- 
ness and checks the efficiency of NPS-PASCAL. Only then can 
firm conclusions be drawn on the usefulness of the complete 


system. 
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IV. RECOMMENDATIONS 


Although NPS-PASCAL was designed to meet the criteria of 
STANDARD PASCAL, there are a number of extensions that could 
easily be made to the language to increase its usefulness. 
These include complete implementation of external functions 
and procedures, string concatenation features, and additional 
standard functions and procedures. 

The grammar for NPS-PASCAL presently supports external 
Subroutines. However, the means of accessing the compiled 
code have not been designed. Similarly, the ability to oper- 
ate on strings already exists in the grammar of NPS-PASCAL, 
but the associated mneumonics and compilation procedures are 
not developed. 

Prior to language extension concerns, Meee comes the 
implementation of the Code Generator. With the added ability 
of symbol table access, run-time debugging should be easier 


to implement. 
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APPENDIX A - COMPILER ERROR MESSAGES 


Disk error : Recompile. 

Incorrect character : See User Manual. 

Symbol table overflow : Reduce number of declarations. 
Exponent size error : See User Manual. 

Integer size error : See User Manual. 


Improper parameter : The actual parameter type does not 
match the formal parameter type. 


Invalid subrange error : Check type and limits of de- 
clared subrange. 


Invalid type error : Array component type specification 
iva lL 1d. 


Invalid array index : Array index types must be scalar - 
INTEGER or PFAL types are invalid. 


Invalid set element : Set elements must be scalar. 


Invalid constant variable : Constant entry in symbol 
Eable is invalidr= probably due to a prior error. 


Assignment type error : Type of expression not com- 
patible with assignment variable type. 


Invalid read variable : Only INTEGER, REAL, or STRING 
values can be read. 


Duplicate type name : Type identifiers must be unique. 
Incorrect number of parameters : The total number of 
actual parameters fails to equal the total number of 
formal parameters. 


Label syntax error : All labels must be integers. 


Duplicate constant name : Constant identifiers must 
be unique. 


Invalid type identifier : Type identifier not previous- 
ly declared. 


Array nest overflow : Simplify declaration. 


Array dimension stack overflow : Simplify array dec- 
tawation. 
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Variant stack overflow : Reduce the number of variant 
cases. 


Record field stack overflow : Reduce the number of 
fields specified. 


Variable declaration stack overflow : Reduce the 
number of variables declared per line. 


Invalid expression : The variable types within the 
expression are not compatible. 


Undefined label error : Label not declared in label 
statement. 


Incorrect actual parameter : The actual parameter 
must be a variable and not an expression. 


Invalid unary operator : Variable type must be 
INTEGER, REAL, or subrange of INTEGER. 


Invalid expression type : The types of variables used 
in an expression are incompatible. 


Undeclared procedure : Procedure identifier not pre- 
viously declared. 


Parameter error : This parameter format can only be 
used in a write statement. 


WRITESSTMT parameter error : The length parameter has 
to be of type INTEGER. 


WRITESSTMT parameter error : The parameter has to be 
OE type REAL. 


Inc6rrect control variable : The control variable has 
not been declared or is of type REAL. 


State stack overflow : simplify program. 


Variable stack overflow : Reduce the length of variable 
printnames. 


No! production <: Syntax error in source line. 
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APPENDIX B - NPS-PASCAL OPERATORS 


A. ARITHMETIC OPERATORS 


Operator 


+ 


Operator 


+ 


Operation 
addition 
subtraction 
multiplication 
division 


Gavia sen) wath 
truncation 


modulo 


Operation 
identity 


Sign inversion 


B. BOOLEAN OPERATORS 


Operator 


OR 


AND 


NOT 


Operation 


Leogucal “or 


Negical “and” 


logical negation 


Binary 


Type of operands 


integer 
integer 
integer 
integer 


integer 


integer 


Unary 


Type of 
integer 


integer 


Type of 
Boolean 
Boolean 


Boolean 
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or real 


or real 


or real 


or real 


operands ~ 


or real 


Orr real 


operands 


Type of result 


integer or real 
integer or real 
integer or real 
real 


integer 


integer 


Type of result 
integer or real 


integer or real 


Type of result 
Boolean 
Boolean 


Boolean 


[<=> 1 sans" rn: 
is $SReiSs 
| | oo 
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Ga cil OPERATORS 


Operator Operation Type of operands Type of result 
+ | set union any set type T 7 
- set difference any set type T 7. 
* set intersection any set type T AW 


D. RELATIONAL OPERATORS 


Operator Type of operands Lype Of Fesule 
- any set, simple Boolean 


pointer or string type 


<> any set, simple Boolean 
pointer or string type 


< any simple or string type Boolean 
> any simple or string type Boolean 
< = any set, simple or Boolean 


string type 


>= any set, simple or Boolean 
string type 


IN Lete operand =; any or= Boolean 
dinal type T 
Fight .operand: SET OF T 


where simple type = INTEGER, REAL or scalar type. 
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APPENDIX C - NPS-PASCAL STANDARD TABLES 

Table of standard identifiers 
Constants: 

false, true 
Types: 

integer, Boolean, real, char, text 
Program parameters: 

iayejohen  eyehoehb hes 
Baunctions: 

ADS arctan. chim, icos;, cof, eoln;)exp,cdin, odd, ord; 

peed, round, Sin, Sqr, Sqre, succ, trunc 
Procedures: 

get, new, page, put, read, readin, reset, rewrite, 

seek, write, writeln 
Directives: 

forward, external 
Table of reserved words 
and array begin case 
const div do downto 
else end eop file 
for function goto if 
in label mod nak 
not Or ope packed 
procedure program record repeat 
set then to type 
carat i. var while with 
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APPENDIX D - NPS-PASCAL LANGUAGE STRUCTURE 


This appendix describes the language in BNF notation followed 
by the semantic actions associated with the individual productions. 
The description, offset with asterisks, is given in terms of the 
compiler data structures and the intermediate code generated. Num- 
bered productions without a production result indicate empty pro- 
ductions. Items enclosed in brackets and separated by slants are 
alternative semantic actions. N/A indicates no action is taken. 
This notation is based on that used in Reference 9 and Reference 


nO). 


1 <program> ::= <program heading> <block>. 
<program heading> 3; <block> 3 

ALL ; {number of bytes allocated for variables} 
= ENDP {end of file indicator} 


H 4 


é <procedure heading> <block> . 
* <procedure heading> 3; <block> ; 
* et {number of bytes allocated for variables} 
% ENDP {end of file indicator} 


3 <function heading> <block> . 
= <procedure heading> 3} <block> ; 
= ALL 3 {number of bytes allocated for variables} 
= ENDP {end of file indicator} 


4 <program heading> ::= PROGRAM <program ident> ( 
xfilenident> ) > 5 


oF 


o 


| had ‘qo Pe 
107i ae = (an 













wo ile) ooriesod FAS ah egmianes leas aatrisaas 
eect Inubosg leobrorbgel sdt dei begeboeasas anoktoa» art 
way ai"is: of nevty 2! (eletvetes dotw Jertie | we 
pit Lbetuwiens] shoo etal Lsareval ene See 
19 [s9m° steuthnl Ilewet pokieEborg fp soe 
Sia etuzls vd bedevegse Sey Bcedsetd oP seed 
ieiso <f noivGs Of esteg tha AVA -Bnoss 08 - 
t6s0H hee 2 Ssoretels? nt beet Fant po Seamed ae, 


| 
J aol beod meraowge . 824 
; $5085 + (eet 


sigse- 410% -e.Glle ef37d- tao 
(voter (hal sift te bas} 


ai Sang Soha ose> 
Jootv> + 4gnSeeed o;ubenong? 
ivale | oteootia ganged Yo tepmne ; 


*siAoTin! af SS Be tas} ne: 


acibess culiaage> 
( <Nvede> |) tgnbbesd savb 


Ao) [a “evs to sedeural 
en thal olh9 to *o8) 
ef 'WOiSh1h> MASDORY =f: Spabtess we 
Yo DS? ee ae 


He tt 


3% oH tt 


tt tf 3 


<program identifier> ; <xfile identifier> 


<xfile identS <s= <file ident>d 
<file identifier> 


SEonke ident> , <file ident> 
'€xfile identifier> 5 <file identifier> 


<orog ident> ¢s=.<ihdentifier> 
N/A 


<file ident> +f:=c«<identifier> 
<identifier> 
{enter file identifier in symbol table} 


Golock>) <s=ne<ldp> (\<cdp> <tdp> <vdp> <p&fdp> <stmtp> 


<label declaration part> 

<constant definition part> 

<type definition part> 

<variable declaration part> 

<procedure and function declaration part> 
<statement part» 


Grdp> °2= 
<empty> 


LABEL <label string> ; 
<label string> 


Grapel strimg> <:s= “<label> 
<label> {enter label in symbol table} 


<lahed strine> , <label> 
<label string> 3 <label> 
{enter label in symbol table} 


<label> ::= <number> 
<number> {check number type} 


<edp> <= 
<empty> 


GONST e<const «def> <; 
<constant definition> 


<comst @der> ss= <ident const def> ; 
<identifier constant definition> 


<const def> ; <ident const def> 


<constant definition>d +; 
<identifier constant definition> 


Grdent const def> -t+=..<ident const> = <constant> 


Sidentifiier constant> ; <constant> 
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{enter constant value in symbol table} 


ident "const> ::= <identifier>d 


<identifier> {enter constant entry in symbol table} 


<constant> <3:= <number> 
<number> {assign constant attributes} 


<sign> <number> 


<sign> ; <number> {assign constant attributes} 


<constant ident> 


<constant identifier> {assign constant attributes} 


<sitgn>a<canstant ident> 
<sigm> 5 <constant identifier> 
{assign constant attributes} 


es trine> 
<string> {assign constant attributes} 


aceonstant ident> s:= “<identifier> 
<identifier> 


<signu>  3s= + 
{assign SIGNTYPE value} 


{assign SIGNTYPE value} 


Giudip> < <= 
<empty> 


TYPE <type def string> 
<type definition string> 


<type defystring> <::= <type id>d 
<type identifier> 


<type def string> 
<tyoe definition string> » <type id>d 


Styne doers s= <type ids> = <type>d> 
<type identifiers> ; <type> 
{alter type entry} 


CGyneaiads oe 22=  adcidentreier> 
<identifier> {enter type} 


Gfype> Wv=8<simple type> 
<simple type> 


<sinuc tured it ypeyr 
structured type> 
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<pointer type> 
<pointer type> 


<SumpLe type>  ss= <type ident> 
<type identifier> 

( <tident string> ) 
<type identifier string> 


<consitant> .. <constant> 
<constant> ; <constant> 
{enter subrange entry in symbol table} 


<type ident> ::= <identifier> 
<identifier> iset, TYPES GOCT} 


<tident String> +31 <identifier> 
<identifier> 
{enter user defined element in symbol table} 


<tident string> , <identifier> 
<tident string> 3 <identifier> 
{enter user defined element in symbol table} 


<structured type> ::= <unpacked structured type> 
<unpacked structured type> 


PACKED 
<unpacked structured type> 
<unpacked structure type> 


<unpacked structured type> <::= <array type> 
<array type> 


<re type> 
<record tyve> a rie 


<set type> 
<set type> 


< file, ii pen 
<file type> 


<array type> ::= “ARRAY: [ <index type: string> ] OF 
<component type> 
<index type string> ; <component tyve> 


{enter array type, each index address in the symbol table, 
displacement vector information, and array offset in the 


symbol table} 


<“andex type string> <“s=-|<index type> 
<index type> {set array dimensions} 
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<index type string> , 
<index type> 

<index type string> ; <index type> 

{set array dimensions} 


<index type> ::= <simple tynpe> 
<simple type> 


<component type> ::= <type> 
<type> 


record type> <::= RECORD <field list> END 
<field list> {enter record type} 


Goreld Hist> <= <fixed part> 
<fixed part> 


<fixed part> ; <variant part> 
“ized part> >; <variant part> 


<variant part> 
<variant part> 


<fixred part> 3= <record section> 
<record section> 


<fixed part> |; <record section> 
<fixed part> 3 <record section> 


record Se@ction> <?= <field ident string> : <type> 
<field identifier string> ; <type> 
{enter record attributes} 


<empty> 


GEreld “ident "string> <:= <field ident> 
<field identifier> 


<field ident string> ; 
field ident> 
<field identifier strineg> 3; <field identifier> 


Gfreld “ident> (c= - <idertifier> 
<identifier> {enter record field in symbol table} 


QWartant “part> i ras={ 9NCASE <tage field> <type ident> OF 
vervant string? 
Giaeetield> ; “type identifier> 13) <variant ostring> 


CASH <type ident> OF 


<variant string> 
<type identifier> ; <variant string> 


101 


























“as [s7érs 
(oete) =t2- Caqye i O 
CUS fee. 30807 FeCORA, “3 Jaq bie: 
lseyo Beers. j Bae 
‘oe SEESTS sat coe sE: 
ioshs +4 | 2s — 
<1 we ike 46924 Cina’ 
¢pvaq iabinay> a 
9») Se 
righe) Gereer>  =tt Tee 
456% ds 
a ; _— . a 


ire ; "<9 bexs2- 
"eet cee brened?d= 1 an 


; THEI Ere I*%> =f: ites 
oni’ § Xegrave £ 
(20ty0 ells Pieces gh in 


> 
— i,t 
- < iqm 


, . foe 


piwg =; ‘sare opebr Sie 
(e,;tiineel $i 
Si. a 
cagsute weltermebs bigkt 
‘rehS> =e. Stee RESTS 
£ otse "O22 Sagaet “qe tiansbE 
’ > as ee a a a 
ah | : ize! ae 
/ » (CLE treake ager 
j-as a2% J TPa° 
“ED Tk LP Osta 
sali’4 Deelter> 3% seev 


{07 


“vartanGistrine>4o3c=s i<variant> 
<variant> 


<varfantastring> ; <variant> 
<variant string> ; <variant> 


KCagehreva >  sr=)- Cfielda ident> % 
<field identifier> {set TAGSFD to true} 


<variant> m=) eRCaSeuprefiz>e@( <field list> ) 
<case prefix> ; <field list> 

<empty> 

<case label list> ::= <case label> 


TSt GABEDSS CACK(SP RO; _KASE § <case label> ; 
{LABELSSTACK(SP)} 


<casenlavet"iist> ; <cease label> 


<case LabellUlist>”; KASE ; <case label>D ; 
{LABELSSTACK (MP) } 


Rcaseelabel>?® ¢2=c <constant> 
<constant> 


{ {set variant attributes} / {set CASESSTMT label} ] 


<set type> <::= SET OF <base type>d 
<base type> {enter type in symbol table} 


<base type> ::= <simple type> 
<simple type> 


“file type>: s:=. FILE OF <type> 
<type> fenter type in symbol table 


<pointer type> ::= ” <type ident> 
<type identifier> {enter type in symbol table} 


<vap>*  ¢3= 
<empty> 


VAR <var declar string>D ; 
<variable declaration string> 


<var declar string> ::= <var declar> 
<variable declaration> 


K<var'deciiar string> '; 
<var declar> 
variable declaration string> ; 
€variable declaration> 


“idmedeclar> | st= <ident varestring> : <type> 
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<identifier variable strine> 5 <type> 
{set variable attributes} 


<igentsavar string> «:s== <identifier> 
<identifier> {enter variable in symbol table} 


<ident.var.string> , 
<identifier> 
<identifier variable string> ; <identifier> 
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{enter variable in symbol 


<pSfdp> s33= 


<empty> 3 LDII {number of parameters} ; 
LITA {porf SBP} 


LITA {porf PRT address} ; 
{only if SCOPESNUM > 1} 


<porf declar 


<procedure or function declaration> ; 


table} 


> 


LDII {number of parameters} 


LITA {porf PRT address} ; 
{only if SCOPESNUM > 1} 


Cort declar> “<= <proc 
<procedure or function> 


“pore declar> <proc or funct> 
<procedure or function declaration> 


<procedure or function> 


Seroc or funct> s:= <procedure heading> <block> 


LITA {porf SBP} 


or rfuncy> 


<procedure heading> ; <block> ; 


PUTA SBE}; GETA {PRT address} ; UNSP$ . 
eater Di Cs 


RIN 3 LBL {procedure label 
Hit Skt s STDL {SBP ini 


<procedure heading> <directive> 


<procedure heading> ; <dir 


<funetdony heading>. <bl ock> 


<Eunction. headineg>. 5. <dloc 
Pra {SEP}; LITA {PRT add 
RIN 3 LEL {procedure label 
MtAnHObr tay ST Din dS BPy ind 


tially 2} 


ective> 


As 


ress} 3 UNSP; 
Ht eee LOL TL O 


Li all ye Ot 


e 
’ 


e 
’ 


<function heading> <directive>d 


<function heading> ; <dire 


<qirective> <= <identif 
<identifier> {determine 


<procedure heading> ::= 
<procedure identifier> 
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<formal “para section list> ) ; 
<procedure identifier> ; 
<formal parameter section list> ; 
{generate listing of formal parameter types and their 
associated PRT addresses in symbol table} 


<oroc id> <s:= PROCEDURE <identifier> 
<identifier> {enter procedure in symbol table} 


<formal para sect list> ::= <formal para sect> 
<formal parameter section> 
{set formal parameter attributes} 


<formal para sect list> ; 
<formal para sect> 
<formal parameter section list> ; 
<formal parameter section> 
{set formal parameter attributes} 


<formal para sect> ::= <para group> 
<parameter group> 


VAR <para group> 
<parameter group> 
{modify variable parameters FORMSFIZLD entry} 


FUNCTION <para group> 
<parameter group> 


PROCEDURE <proc ident list> 
<procedure identifier list> 


<pEeoc ident 1ist> <s= “<identifier> 
<identifier> 


<proe ident list> , <identifier> 
<procedure identifier list> ; <identifier> 


Quaraeroup>  <ss= <para “ident list> : <type ident> 
<parameter identifier list> 5 <type identifier> 


Goara “ident Nisit>- <2= <identifier> 
<identifier> {enter formal parameter in symbol table} 


<para ident ist>'’, <identifier> 
<parameter identifier list> ; <identifier> 
{enter formal parameter in symbol table} 


cHuneiron heading> 3:= <funct id> : <result type> ; 
<function identifier> ; <result type> 
{set the function’s type field} 


<funet id> ( 
<formal para sect list> ) : 


104 


3 ae wv 


4 | Stent aoteoge 





























3% it & 


<result type> ; 
<functi oni identifier ; 
<formal parameter section list> ; <result type> 
{generate listing of formal parameter types and their 
associated PRT addresses in symbol table; set the 
function’s type field} 


<funct id> <::= FUNCTION <adentifier> 
<identifier> {enter function in symbol table} 


<result type> ::= <type ident> 
<type identifier> 
{allocate proper length of function in the PRT} 


<smtipha (es=)t <compound stmt> 
<compound statement> 


sim ot eisj=recbal stmt> 
<balanced statement> 


<unbal stmt> 
<unbalanced statement> 


<label def> <stmt> 
<label definition> 3 <statement> 


<bal stmt> ::= <if clause> <true part> ELSE <bal stmt> 


<if clause> 3 <true part> ; <balanced statement> ; 
LBL {LABELSTACK (MP) +1} 


<simple stmt> 
<simple statement> 


Ginwalvestmitp =e :2= <itfeclause> <stmt> 
<if clause> 3 <statement> ; 
LBL {LABELSTACK (M?) } 


<if clause> <true part> ELSE 
<unbal stmt> 

“if clause> 7 <trmer part»; 

<unbalanced statement> ; 

LBL {LABELSTACK (M2) +1} 


<if clause> ::= IF <expression> THEN 
<expression> 3 NOTX 3 {set LABELSTACK(MP)} ; 
BLC {LABELSTACK (MP) } 


Girve part> <*<:= («Kbala'stmt> 
<balanced statement> ; 

BRL {LABELSTACK(SP-1)+1} ; 
LBL {LABELSTACK (SP-1) } 


<label def> ::= <label> 
<label> ; LBL {PRT address} 
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<simple stmt> ::= <assignment stmt> 
<assignment statement» 


<procedure stmt> 
<procedure statement» 


<while stmt> 
<while statement> 


<repeat stmt> 
<repeat statement> 


<for stmt> 
<for statement> 


<case stmt> 
<case statement> 


<with stmt> 
Cwith statement» 


<goto stmt> 
<goto statement> 


<compound stmt> 
<compound statement» 


<empty statement> 


<assignment stmt> ::= <variable> := <expression> 
<variable> ; <expression> ; 

LITA {variable PRT address} 

troy, STDE / STDS / CNAL “3 YSTDB] 


€<variable> ::= <variable ident> 
<variable identifier>d 


<variable> ~ 
<variable> {NOT IMPLEMENTED } 


<variable> [ <expres list> ] 
<variable> ; <expression list> ; 
LDII {variable PRT address} 3; 
SUB {number of array indicies} 


€<variable> . <field ident» 
<variable> ; <field identifier> 


{modify PRT location and variable type} 


<variable ident> ::= <identifier> 
<identifier> {set variable type and PRT location} 
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<expres list> ::= <expression> 
<expression> 


<expres list> , <expression> 
<expression list> ; <expression> 


<expression> ::= <simple expression> 
<simple expression> 


<simple expression> 

<relational operator> 

<simple expression> 
<simple expression> ; <relational operator> ; 
<simple expression> ; 
(eur / INEOL / LEQE 7 CHOI / LSSI / GRIT / 
EQLB / NEQB / LEQB / GEQB / LSSB / GRTB / 
EOUS / NEOS / DEOQS / GEQS°7 LSsSS /°GRTS / 
ROSET /"NEQST@/ ENCLI*/ INCL2e / XIN] 


<relational operator> ::= = 
{set relational operator} 


<=> 
{set relational operator} 

<= 
{set relational operator} 

SS 
{set relational operator} 

< 
{set relational operator} 

> 
{set relational operator} 

IN 


{set relational operator} 


<term> * <¢=“*<factor> 
<factor> 


<term> <multiplying operator» <factor> 
Grertl> » <multiplying operator> ; <factor> ; 

[MULE 7) MULE / UNTON / CNVI ; CNeI ; DIVE / 

DIVB / DIVI / MODX / ANDX] 
multiplying operator> ::= #* 
{set operator type} 

{set operator type} 
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DIV 
{set operator type} 


MOD 
{set operator type} 


AND 
{set operator type} 


<simple expression> ::= <term> 
<term> 


€sign> <term> 
<sien> 3; <term> ; [NEGI / NEGB] 


<simple expression> 


<adding operator> <term> 


<simple expression> ; <adding operator> ; 
<cerm> > 


LONDON / ADDI / ADDS 7 STDIF / SUBI / SUEB / BOR] 


<adding operator> ::= + 
{set overator type} 


{set operator type} 


OR 
{set operator type} 


GEactior> , .t= - <variable> 

<variable> ; 

[ {puilt-in-function identifier} / LI 
Oni 7 On 7 Lope) 7 LDet {vaive}’/ 
EDEL qvaluel / LDBI {value} 3; NEGE | 


<variable> ( <aetual para list> 
€<variable> ; <actual parameter list> ; 
{verify parameter count} 
{ {built-in function identifiers} / LITA {PRT 
hoo), LODl / LODE) } 3 


( <expression> ) 
<expression> 


¢<set> 
<set> {NOT IMPLEMENTED } 


NOT <factor> 
<facton> ; NOTX 


<number> 
<number> 
[LDII {integer value} / LDIB {BCD real value}] 
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TA {PRT location} 
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NIL 


<string> 
<string> 3; LOSE {ACCUM} 5 NOP 


<actual para list> ::= <actual para> 
actual parameter> {initialize parameter count} 


<actual para list> ; 

<actual para> 
<actual parameter list> 3; <actual parameter> 
f{incriment parameter count 


Kset>’ ¢s=—"( <element Iist> ] 
<element list> {NOT IMPLEMENTED } 


<element list> ::= 
<empty> {NOT IMPLEMENTED} 


<xelement list> 
<xelement list> {NOT IMPLEMENTED } 


<xelement list> ::= <element> 
<element> {NOT IMPLEMENTED} 


<xelement list> , <element> 
<xelement list> 3 <element> {NOT IMPLEMENTED} 


<element> ::= <expression> 
<expression> 


<expression> .. <expression> 
<expression> ; <expression> 


<2OU0.Stmt> -*2=" COTO <lrabel> 
<label> 3; BRL {PRT location} 


<compound stmt> ::= BEGIN <stmt lists> SND 
<statement lists> 


<stmt Lists>-*22= -<stmt> 
<statement> 


<Stmterrstse 5 <Stmi> 
<statement lists> ; <statement> 


<procedure stmt> ::= <procedure ident> 
<procedure identifier> ; 
{ {built-in procedure identifier} / PRO {procedure label} ; 
oye el 

<procedure ident> { 
<actual para list> ) 
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<procedure identifier> 5; <actual parameter lists> ; 
{verify parameter count} 


{ {built-in procedure identifier} / PRO {rrocedure label} ; 


DEL | 


<procedure ident> ::= <identifier>d 

<identifier> 

{ {determine which built-in procedure} / 
{store procedure attributes in stacks} ] 


actual para> ::= <expression> 

<expression> ; 

f PARMX {if READPARMS = false} / 
Wet / Wale 7 WRTT / WRITS |] {if WRITESSIMT = true} / 
(eR DVe/enkDvB 7 RDVI / RDVS | {if READSSTMT = true} ] 


<expression> : <expression> 
<expression> 3} <expression> ; 
f WRTB 91 / WRTS 81 ] 


<expression> : <expression> 
<expression> 
<expression> ; <expression> ; <expression> ; 
wRTB @2 


<case stmt> ::= <case express> <case list elemt list> 
END 

<case express» ; <case list element list> ; 

feset-LABELSSTACK (MP) te. »LBLle {LABELSSTACK (MP) } 


<case express> ::= CASE <expression> OF 
<expression> {CASESSTMT = true} 
{set LABELSSTACK(MP) , incriment CASESCOUNT} 


ease List elemt list> :<::= <case list element> 
<case list elenent> ; BRL {LABELSSTACK(MP-1)} ; 
LBL {LABELSSTACK (MP) +1} 


<ease list elemt List> 3 
¢case list element> 
<case list element list> 5; <case list element>D ; 
BRL {LABELSSTACK(MP-1)} ; LBL {LABELSSTACK(SP)+1} 


<ease list element> ::= 
<empty> fGASESSTMT = false} 


<case prefix> <stmt> 
<case prefix> ; <statement> 


<case pretix> <%?= <case label list>D ; 
<ease! label list><; BRL {LABELSSTACK(MP)+1i} ; 
LBL {LABELSSTACK(MP) } 


<wiemestmt>> <t== <with>.<rec« variable list> <do> 
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<bdal stmt> 
<with> ; <record variable list> 3 <do> ; 
<balanced statement> {NOT IMPLEMENTED} 


<wi ith) :t=t6 WITH 
{NOT IMPLEMENTED} 


<rec variable list> ::= <variable> 
<variable> 


<réc variable list> , 
<variable> 
<record variable list> ; <variable> 


<do> ::= DO 
{set LABELS$STACK(SP)} 
BLC {LABEL$STACK(SP)} 


<while stmt> ::= <while> <expression> <do> <bal stmt> 
<while> 5; <expression> ; <do> $; <balanced statement> ; 
BRL {LABELSSTACK(MP)} 3 LBL {LABELSSTACK(SP-1)} 


<while> <:= WHILE 
{set Cee ee aaa 
iBk 1LABELSSTACK( SP) 


<caore ctimt 8 c7= MOR <control variteable> <= <for list> 
NO <bak stmt> 

aeontrol variable> 3; <for list> ; <do> ; 

<balanced statement> ; BRL {LABELSSTACK(SP-2)+1} ; 

LBL {LABELSSTACK(SP-1) } 


Sam Site 8 ss) Ginttial value> <to> <final value> 
Giniiuiak Value> 5 <to> ; <final value> ; 
GEQI 


<initial value> <downto> <final valued 
Ginittial value> ; <downto> ; <final value> 
LEQI 


<control variable> ::= <identifier> 
<identifier> {set variable type and PRT location} 


initial value> ::= <expression> 

€expression> ; 

Wee control variable PRT location}! ; { STOI / STO ] ; 
ise, CABMESSTPACK(SP)} § BRL {LABELSSTACK(SP)} ; 

Bl ALABELSSTACK(SP)+1} ; 

Peta contro. variable PRT location}! ; { STDI / STD ] 


<fimal value> ::= <expression> 
<expression> 


<repeat stmt> <repeat> <stmt lists> UNTIL 
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<expression> 


<repeat> ; <statement lists> ; 
BLC {LABELSSTACK(MP)} 


<repeat> ::= REPEAT 
{ set LABELSSTACK (SP) } 
LBL {LABELSSTACK(sp) } 


GtO>- —F 2=74TO 
TNC = IRL {LABELSSTACK(SP ~1)} 


<downto> ::= DOWNTO 
DEC ; LBL {LABELSSTACK(SP—1)} 


AZ 


<expression> 
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APPENDIX E - INOPERATIVE CONSTRUCTS 


The accompanying list shows the NPS-PASCAL constructs that 
had not been fully implemented at the start of this project. 
Those constructs requiring further work and testing at project 
completion are denoted with an asterisk. 

Since the original work on NPS-PASCAL was not based on 
STANDARD PASCAL CONSTRUCTS, it was necessary to first develop 
a new grammar utilizing the required special characters and 
reserved words, and following the rules stipulated in STANDARD 
PASCAL. Consequently, the inoperative constructs listing is 
based on STANDARD PASCAL constructs, and does not include 
PASCAL language extensions contained in NPS—PASCAL. 

= Program parameters specified in the program heading 

= Procedure and Function Declaration Part 

= BlLock?structure 

= The WHILE statement 

= The FOR statement 

= the CASE statement 

= Array access 

= Packed arrays ; 

= Record variant part 

= Record tag field 

= Record component access : 

- String Operators 

= The WITH statement 


oS 
= Set assignments 
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Set operators 

Set relational operators 

File buffer variables 

Standard file-handling operators 
Textfiles 

Pointer variables ‘ 

Procedure and Function Parameters 
Recursive execution of Procedures and Functions 
Procedure statements 

Function values 

Directives 

Standard Procedures 

Standard Functions 

Program input from input file 
Pregram, output to output file 
Strings 


Input and Output to non-standard files 
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APPENDIX F - INTERMEDIATE CODE DECODE PROGRAM 


Since the NPS-PASCAL compiler was developed without the 
parallel development of the 8080 Code Generator, an alter- 
native means of checking the generated intermediate code was 
developed. The result is the PL/M program DECODE shown in 
the program listings. 

DECODE opens the compiler generated intermediate code file 
(<FILENAME>. PIN) and converts the hexadecimal values into the 
same NPS-PASCAL mneumonics found in the compiler. The para- 
meters associated with certain operators such as labels, branch- 
es, and load immediate mneumonics, are printed out immediately 
following the operator. Integer and real numbers are printed 
out in decimal format for ease of readability. Strings are 
displayed in their ASCII character format. 

The execution procedure for viewing the intermediate code 
iseas follows: | 

(1). Compile an NPS-PASCAL program using the command: 

PASCAL <FILENAME> 
(2). Upon successful compilation, with no program errors, 
input the command: DECODE <FILENAME> 
The contents of the <FILENAME> . PIN file will be printed 
out on the console. The DECODE program leaves the intermediate 
Sede intact in its file for further use in the Code Generator 


program. 
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APPENDIX G - SYMBOL TABLE DISPLAY PROGRAM 


A symbol table display program was developed as an aid to 
compiler development, and particularly, for use in program 
debugging. SYMBOLTABLE is a PL/M program that prints out the 
information stored in the SYM file created by the NPS-PASCAL 
compiler. This program is contained in the program listings 
section. 

SYMBOLTABLE contains many of the same features as DECODE 
to increase readability. Integer and BCD real values stored 
in the symbol table are output in decimal form. PRT addresses 
are also displayed in decimal format. Printnames, strings, 
ememecalars are all shown as ASCII characters. Hash colli- 
Sions with other program identifiers are indicated. Identi- 
fier types are specified along with any additional data that 
Singles out this identifier. 

Of course, program execution requires the NPS-PASCAL pro- 
gram in question to be compiled first. After receiving the 
compilation complete message on the monitor (a zero error 
Seume iS not required), the user can print out the program 
symbol table information using the command: SYMBOLTABLE 
<FILENAME>. The symbol table file remains intact on the disk 


for use during the 8080 code generation phase. 
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CALL PRINTSEERROR 


CALL MONS; 


END; 


ROR 


) 
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Kk 


END 


CALL OPENSSRCSFILE; 


DCL COUNT BYTE; 
LINENO,LINEPTR 


’ 


128; 


CALL CLEARSLNS$ RUFF} 


SOUHCEPTEH 
CALL GETNOPLANK; 


eS 3} 


CALL GETSNOSBLANK3; 


DO 


NEXTC HAR 


WHILE 


COUNT; 
LIS TSOUKCE 
LES TPROD 


DO CASE 


TRUES 


TRUE 
it 
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TAN 
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iy 
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NOINTFILE 
LISTTOK fk 
DEBUGLN 


GETNOBLANK; 


ALL 
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END; 
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2696: CALL CAStPTRPTd ( BYTEPTR ) ; 

2697; TYPE$STACK(SP) - PTHPIR) 

269d; end; 

2699: APTRADDR = APTRADDR + l; 

2700: PARMNUM(SP) = BYTEPTR; 
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2V68: IF A = LDIB THEN LOAD REST OF BCD NUMBER ’'•V 

2769: DO PTRPTR = 2 TO (PGDNUM/2); 

2770: APTHADDh - APTRADDR + 2i 

2771: CALL G EN FR ATE ( BYTEPTP ) ; 

2772: CALL GENEK ATF( H I GH ( ADDHPTK ) ) ; 
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2876: /- CASE 3 - REAL T^PE ’V 

2677: IF TYPE$ST ACK ( LS ) - 0AH THEN 

2878 : A = 0 ; 

287S: ELSE CALL ERROr('AT'); 

2880: /- CASE 4 - STRING TYPE ’'-V 
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2912 : DC; 

2912 ; CALL GKM El ATF ( CNVI ) ; />•' CONVERT INI' TO BCD 

291 i: FXPRESSvSTK(SP) -, 5 H; 

291 n: RETURN TRUE} 

2916 : end; 
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COPYIST ACKS : PltOC(A, B); 

2949: DCL (A, B) BYTE; 

29b0: TYPFiSTACK( A ) - TY PE^ ST ACK ( B ) ; 

2951: PHT$ADDB(a) = PRT^. ADDR ( B ) ; 

2952: EXPh'ESS^STK( A) - EX PR ESS is TK ( B ) ; 
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.^092: DO WHILK SBTBLSCOPK > SCOP &;( SCO PF$NUM - 

:6P93: BASE = SBrBLSCOPF.; 

3094: CALL SETADDHPTR(4) ; 

3099: IF ((BYTFPTR AND FORHHASK ) = 7H ) THEN 

3096: do; 
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3488: 18 <LDP> ;: = 

3499: CALL SCOP &'4LR ANCli ; 
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^.524: CALL CONV HT ^ CONST( POS ) ; 

:^525: EXPHESS?STK (MP) = C0NS$MUM$TYPE; 

3b26: tfPCPTrt-VECPTH- i; 

r5f)27: end; 
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3560: ; 

3561 : 

3562: /'■= 27 <SKJN> : : 

3563: do; 

3564 : SIGN$TYPE = POS; 
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15596: do; 

6597: CALL LIMITS (2); 

3598: TY PK4ADDR=S BTBL; 

3599: SBTBL-S BTBL )2; 
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5632: TYPE$ORD^NUH=TYpg^ORD$NUM+l ; 

3633: CALL USER ^TY P ( TY PE^O l?D$ NUM ) ; 

3634: END; 

3635: 

3636: /'■' 44 <'STRUCTURED TYPE> ::- <UNPACKED STRUCTURED TYPE> 



3639: 45 PACKED 

3640: /'•' 45 <UNPACKED STRUCTURED TYPE> 

3641: ; 

3642 : 

3643: />‘‘ 46 <UNPACKED STRUCTURED TYPE^ ::- <AHRAY TYPE> 

3644: ; 

3645: /- 47 '' <R£CORD TYPE> 
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366fi: NUM$AHRY$DI(i( ARRY^>PTR) = 1 ,' 

3669: end; 

3670: 52 '' <INDVX TYPE STRINO 

3671: /- 52 <1NDEX TYPE> 

3672: do; 
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5741: /- 6b <FIELD IDLNT> : :- <IDENTIFIER) 

3742: do; 

3743: IF RECORD$PTR O 10 THEN RECO RD$ PTR-R ECORD^. PTR -rl ; 

3744: ELSE CALL EkROR('RN'); 
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LVi'Vb : T A G $F L' ( H EC $ N ST ) =T R U E ; 

;V??6: 

S777: /'■' 71 <VARIANT> ::= <CASE LABEL LIST> : ( <FIELD LIST> 
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3647: /- THI-’ ROUTINE ABOVE CHECKS THE CASE TABLE WITH THE VARIANT TYPE 

3646 : 

36 49: CUh$OFST{ REGANS T)-VAR$OFST$BSE ( FEC$NST ); 

3660: VECPTR-VEGPTR-1 ; 

3661 : CONST$PTR ,C0NSTi INDX ,CONST^.PN$PTR = 0; 

3662: END; 
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3854; /»- ?6 <SET TYPL> SET OF <fcASE TYPE 

3355: CALL FNTRiSTP$TYP(27H) ; 

3856 : 

385?; /- ?V <BASE TYPE> ;:= <SIMPLE TYPE', 

3858: ; 

3859; 

3860; /- • 78 <FILE TYPE> ;:= FILE OF <TYPE> 
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